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ABSTRACT 


THIS PROGRAM TESTS THE CB11 SYSTEM. SCAN MODULES ARE 

EXPLICITLY TESTED VIA MAINTENANCE MODE, (WHICH IS THEREFORE ALSO 
EXPLICITLY TESTED.) DISTRIBUTE MODULES ARE EXPLICITLY 

TESTED IN A DIRECT READ/WRITE MANNER. 


IN ADDITION, BOTH SCAN AND DISTRIBUTE BOARDS MAY BE IMPLICITY 
TESTED WHENEVER TWO DISTRIBUTE BOARDS ARE JUMPED IN SUCH A 
WAY AS TO DRIVE ONE SCAN BOARD AND WHEN THE PROGRAM IS CALLED 
TO RUN THIS TYPE OF TESTING. 


REQUIREMENTS 


=_— tS Ss se ss ss SS Ss a a SS SS 
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ANY PDP-11 WITH 4K MEMORY, A TTY, AND A LINE CLOCK OR A 
REAL TIME CLOCK, ALL IN PROPER WORKING ORDER. 

A CB11 DEVICE. 

THE USER INPUTS TO SCAN AND DISTRIBUTE MODULES MUST BE 
DISCONNECTED. +t* 

*eee]F ITEM 3 IS NOT STRICTLY ADHERED TO, THE RESULTS TO THE 
PROGRAM OR TO THE HARDWARE IS UNSPECIFIED. *** 


LOAD ING-STORAGE 


LOADING PROCEDURE FOR NORMAL BINARY TAPES SHOULD BE FOLLOWED. 
MEMORY IS STORED AND UTILIZED FROM LOCATIONS 0 THRU 17776. 


WITH THE EXCEPTION OF LISTING PAGE NUMBERS, ALL OTHER 
NUMERICAL REFERENCES ARE STRICLY IN OCTAL. 


THE PROGRAM CAN BE HALTED AND STARTED, OR RESTARTED AT ANY TIME. 
USER INPUTS TO THE SCAN AND DISTRIBUTE MODULES MUST BE 
DISCONNECTED BEFORE RUNNING THIS PROGRAM. 


RUN TIMES 


THE APPROXIMATE RUN TIMES GIVEN BELOW ARE FOR ONE PASS (BELL 
TO BELL) WITH ALL SWITCHES DOWN. TIMES GIVEN ARE IN SECONDS. 


S & OR D DIAG (SA0200) MODE: 
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ONE SCAN BOARD 2 


D 
M DIST. BOARDS M(2) 
ONE SCAN & ONE DIST. BOARD 2+2 
N SCAN &@ M DIST. BOARDS N(2)+M(2) 


S & D ACCEPT/EXERCISE (SA1010) MODE: 


ONE SCAN BOARD 10 
N SCAN BOARDS N(10) 
ONE DIST. BOARD 17 
M DIST. BOARDS (17) 

ONE SCAN & ONE DIST. BOARD 10+17 

N SCAN & M DIST. BOARDS N(10)+M(17) 


D JMPR S DIAG (SA1000) MODE: 


TWO DIST. BOARDS JUMPERED TO ONE SCAN BOARD 55 
N GROUPS OF TWO DIST. JUMPED TO ONE SCAN N(55) 


D JMPR S ACCEPT/EXERCISE (SA1020) MODE: 
TWO DIST. BOARDS JUMPERED TO ONE SCAN BOARD 225 
N GROUPS OF TWO DIST. JUMPED TO ONE SCAN N(225) 
POWER FAILURE 


THIS PROGRAM MAY NOT RECOVER FROM A POWER FAILURE. 
THEREFORE, THIS DIAGNOSTIC SHOULD NOT BE USED WHEN VERIFYING 
THE SYSTEM CAPABILITY TO RECOVER FROM A POWER FAILURE. 


(3MIN 45SECS) 


SEQ 0004 
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SEQ 0005 


STARTING-OPERATION 


THERE ARE FIVE MODES OF OPERATION IN THIS PROGRAM: 


Ve 


S &/OR D DIAG. (SA200 - W/ALL SWITCHES RESET.) 
TEST SCAN AND/OR DISTRIBUTE BOARDS. THE SWITCH REGISTER 
IS CONTROLLED ENTIRELY BY THE OPERATOR. 


D JMPR S DIAG.  (SA1000 = W/ALL SWITCHES RESET.) 

TEST ONE SCAN & TWO DISTRIBUTE BOARDS THAT ARE SPECIALLY 
JUMPERED TOGETHER. THE SWITCH REGISTER IS CONTROLLED ENTIRELY 
BY THE OPERATOR. 


S$ &/OR D ACCEPT/EXERCISE (SA1010 = W/ALL SWITCHES RESET.) 
ACCEPT/EXERCISE SCAN AND/OR DISTRIBUTE BOARDS. SWITCHES 
SWR12, SWR11, SWR2 & SWR1 ARE CONTROLLED BY THE PROGRAM. 
TWELVE PASSES OF THE PROGRAM ARE MADE, EACH WITH THE 

FOUR SWITCHES (ABOVE) SET TO A DIFFERENT CONFIGURATION. 


D JMPR S ACCEPT/EXERCISE (SA1020 = W/ALL SWITCHES RESET.) 
ACCEPT/EXERCISE ONE SCAN AND TWO DISTRIBUTE BOARDS THAT ARE 
SPECIALLY JUMPERED TOGETHER. SWITCHES SWR12, SWR11, SWR2 

& SWR1 ARE CONTROLLED BY THE PROGRAM. TWELVE PASSES OF THE 
PROGRAM ARE MADE, EACH WITH THE FOUR SWITCHES (ABOVE) SET 
TO A DIFFERENT CONFIGURATION. 


MODULE TEST. (SA1030 = W/ALL SWITCHES RESET.) 
REQUIREMENTS: ONLY ONE MODULE CAN BE ON THE BACKBOARD 
sears AT A TIME (EITHER SCAN OR DIST.) 


Ma BOARD RESPONDS ONLY TO ITS GIVEN 
A . 
B. SAME AS MODE 1 (ABOVE) FOR THIS ONE BOARD. 


WHEN THE PROGRAM HAS BEEN STARTED, (IN ANY OF THE FIVE MODES ABOVE) 
THE ACTION IS AS FOLLOWS: 


1. THE PROGRAM (MODE) WILL IDENTIFY ITSELF ON THE TTY. 


2. THE PROGRAM WILL MAKE QUERIES OF THE OPERATOR VIA 
THE TTY. (OPTION AVAILABLE - SEE SWRO3) 


3. THE PROGRAM WILL RUN IN THE MODE SELECTED ACCORDING 
TO THE REPLIES GIVEN TO THE TTY QUERIES. 


AT THE END OF EACH PASS THE TTY BELL WILL RING 
(OPTION AVAILABLE = SEE SWROS) AND ANOTHER PASS 
IS BEGUN (AT STEP 3 ABOVE). 
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SEQ 0006 


TTY QUERIES 


THE PROGRAM WILL QUERY THE OPERATOR FOR INFORMATION NECESSARY TO 
THE OPERATION OF THE PROGRAM. THE ONLY LEGAL CHARACTERS FOR ANY OF 
THE QUERIES ARE: 01234567YN 


ANY ERRONEOUS REPLIES WILL RESULT IN A RE-QUERY FOR THAT 
PARTICULAR INFORMATION OR IN SOME CASES OF ALL INFORMATION. 
THE PROGRAM CAN ALWAYS BE RESTARTED. THE PROGRAM WILL NOT 
ALLOW ANY ERRORS IN ADDRESSES EXCEPT WHEN IT IS BEING TOLD 
IT HAS A SCAN (OR DIST.) BOARD AT AN ADDRESS WHICH IN FACT 
IS NOT PHYSICALLY THERE. ALLOWABLE ADDRESSES ARE IN THE 
RANGE 164000 THRU 167776. 


THE FOLLOWING IS A LIST OF THE QUERIES (Q) AND DESCRIPTION OF THE 
REPLIES TO BE GIVEN (R). 


Q. LOSA? EXAMPLES: LOSA?164000  LOSA?N 

R. THE LOWEST SCAN ADDRESS TO BE TESTED. THE LAST DIGIT 
OF THIS ADDRESS MUST ALWAYS BE 0. IF NO SCAN ADDRESSES 
ARE TO BE TESTED, TYPE N (NO). 


HISA? EXAMPLE: HISA?164006 

THE HIGHEST SCAN ADDRESS TO BE TESTED. THE LAST DIGIT OF THIS 
ADDRESS MUST ALWAYS BE 6. IF THE REPLY TO LOSA (ABOVE) 

WAS N (NO) THEN THIS QUERY WILL NOT BE MADE. 


LODA? EXAMPLES: LODA?164010 LODA?N 

THE LOWEST DISTRIBUTE ADDRESS TO BE TESTED. THE LAST DIGIT 
OF THIS ADDRESS MUST ALWAYS BE 0. IF NO DISTRIBUTE 

ADDRESS ARE TO BE TESTED. TYPE N (NO). 


HIDA? EXAMPLES: HIDA?164012 HIDA?164016 

THE HIGHEST DISTRIBUTE ADDRESS TO BE TESTED. THE LAST DIGIT 
OF THIS ADDRESS MUST ALWAYS BE EITHER 2 OR 6. IF THE 

REPLY TO LODA (ABOVE) WAS N (NO) THEN THIS QUERY WILL 

NOT BE MADE. 


DATA? EXAMPLES: DATA?N DATA?123456 

THIS QUERY IS MADE ONLY WHEN RUNNING THE PROGRAM IN 
DJMPRS MODES. NORMALLY REPLY N (NO). IF IT IS 
DESIRED TO RUN THIS TEST ON ONE, OPERATOR CHOSEN DATA 
WORD, AND NO OTHERS, THEN TYPE THE DATA WORD DESIRED. 


DISTS JUMPED TO SCAN? 

REPLY Y (YES) OR N (NO). THIS QUERY SERVES ONLY TO DOUBLE 
CHECK THAT THE PROPER JUMPERS ARE IN. THE ee WILL 
NOT EVEN TRY TO CONTINUE UNTIL THE REPLY IS Y 

THIS QUERY IS ONLY MADE WHEN RUNNING DJMPRS MODES. 


USER DISCONNECTED? 
REPLY Y (YES) OR N (NO). THIS QUERY SERVES ONLY TO DOUBLE 
CHECK THAT THE USER INPUTS ARE DISCONNECTED. THE 
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PROGRAM WILL NOT EVEN TRY TO RUN UNTIL THE REPLY IS Y. 


COMPLETE EXAMPLES: 
S$ &/0R D DIAG 


LOSA? 164000 

HISA? 164006 

LODA? 164010 

HIDA? 164012 

TEL CO DISCONNECTED? Y 
THANKS! NOW TESTING 


D JMPR S ACCEPT/EXERCISE 
LOSA? 164000 


N 
DIST JUMPED TO SCAN? Y 
USER DISCONNECTED? ¥ 
THANKS! NOW TESTING 


S &/OR D ACCEPT/EXERCISE 


LOSA? N 

LODA? 164100 

HIDA? 164206 

USER DISCONNECTED? Y 
THANKS! NOW TESTING 


D JMPR S DIAG 


LOSA? 164000 

HISA? 164006 

LODA? 164010 

HIDA? 164016 

DATA? 123456 

DIST JUMPED TO SCAN? Y 
USER DISCONNECTED? Y 
THANKS! NOW TESTING 


THERE ARE TOO MANY POSSIBILITIES TO GIVE USEFUL ERRONEOUS EXAMPLES. 
THE MORE OBVIOUS ERRORS ONLY CAUSE A RE-QUERY. BVIOUS 
ERRORS WILL CAUSE A SHORT EXPLANATORY TYPEOUT AS TO WHY THE 

THE PROGRAM WILL NOT RUN UNTIL 

THE PROGRAM HAS NO WAY OF TELLING 
DURING THE QUERIES WHETHER OR NOT A BOARD ACTUALLY EXISTS AS 
INDICATED. ERRORS OF THIS TYPE WILL CAUSE AN ERROR IN THE TESTS. 


REPLY IS NOT ACCEPTABLE. 


ALL REPLIES ARE SATISFACTORY. 


SEQ 0007 
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SWITCH REGISTER 
FOR NORMAL OPERATION ALL SWITCHES ARE TO BE RESET. 
RESET MEANS DOWN OR A ‘'0"', SET MEANS UP OR A ‘1’. 
SWR15 RESET DO NOT HALT ON ERROR. MAKE A SINGLE TYPEOUT 
OF EACH ERROR THAT OCCURS AND GO ON TO THE 
NEXT TEST OR LOOP OF A TEST IN SEQUENCE. 
HALT ON ERROR. MAKE A TYPEOUT OF THE ERROR THEN HALT. 
DO NOT SCOPE LOOP. 
SCOPE LOOP ON CURRENT TEST OR TEST LOOP. 
DURING A SCOPE LOOP, MAKE SUBSEQUENT ERROR TYPEOUTS. 


DURING A SCOPE LOOP, MAKE NO SUBSEQUENT ERROR 
TYPEOUTS. 


ALLOW TRACE TRAPPING AFTER EVERY INSTRUCTION. 
INHIBIT TRACE TRAPPING. 
ALLOW ITERATIONS OF THE TESTS. 
INHIBIT ITERATIONS. 
NOT USED. 
NOT USED. 
NOT USED. 
NOT USED. 
RESET IN THE EVENT OF INTERMITTANT ERRORS DURING 
Fig ot Eas A COUNT OF ERRORS AND OF ‘‘OK'S** WILL 
SET INHIBIT THE ABOVE DESCRIBED TYPOUT. 


THE TTY BELL WILL RING AT THE END OF EACH PASS. 


THE BELL WILL RING AND A PASS COUNT WILL BE TYPED 
AT THE END OF EACH PASS. 


THE OPTION DESCRIBED AS FOLLOWS IS INHIBITED. 


REPORT ON THE STATUS OF THE PROGRAM AFTER EACH 
SUB-TEST OR TEST LOOP. THIS TYPEOUT WILL OCCUR 
EACH TIME THE PSUEDO-OP CONTROL IS EXECUTED. 

THE TYPEOUT IS THE SAME ONE USED FOR ERROR REPORTS. 
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THE OCCURANCE OF AN ACTUAL ERROR WHILE THIS 

OPTION IS BEING UTILIZED WILL NOT AFFECT THE 

ERROR REPORTING MECHINISM, NOR WILL THE ERROR 

REPORTING MECHANISM EFFECT THIS OPTION. SWITCH 

SWROO IS APPLICABLE TO THIS TYPEOUT. THE OBVIOUS DETECTABLE 
DIFFERENCE BETWEEN THIS TYPEOUT AND AN ACTUAL ERROR TYPEOUT 

IS THAT BIT 0 OF FLAGS (SEE ERROR SECTION) WILL BE SET ONLY FOR 
AN ACTUAL ERROR TYPEOUT. 


ALLOW FULL TTY QUERIES OF THE OPERATOR. 

Ree ee EES Oa ten he AS in 
QUERIES WERE MADE. 

THE OPTION DESCRIBED AS FOLLOWS IN INHIBITED. 
SHORTEN ALL TIME DELAYS BY 10%. 

THE OPTION DESCRIBED AS FOLLOWS IS INHIBITED. 
LENGTHEN ALL TIME DELAYS BY 102%. 

ALLOW FULL ERROR REPORT TO BE MADE. 


SHORTEN THE ERROR REPORT TO THE CONTENTS OF THE 
PROGRAM COUNTER ONLY (PC/), 
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SEQ 0010 
ERRORS 


WHEN AN ERROR IS DETECTED THE ERROR MESSAGE DESCRIBED BELOW WILL 

BE TYPED. THEN, IF SWR1S IS RESET, TESTING WILL RESUME WITH THE 

NEXT ITERATION, TEST LOOP, OR TEST IN SEQUENCE. IF SWRIS5 IS SET 

THE PROGRAM WILL HALT AND AWAIT OPERATOR INTERVENTION. (SEE ERROR OPTIONS.) 
THE DECISION TO HALT ON ERROR CAN BE MADE AND SWR15 CAN BE SET AT ANY 

TIME BEFORE THE ERROR TYPEOUT IS COMPLETED. 


THE FOLLOWING REPRESENTS THE ERROR MESSAGE: 


PC/XXXXXX PS/AXXXXMK CA/XXXKKK CX/MAMXXX CW/MXXXXX BI/XXXK F/XXXXXX 
GWD/XXXXXX GMF/XXXXKK GWO/XXXXXK GW2/XXXXXX GW4/KXXXXXX GWO/AXXXXXX SWR/XAXXXXX 
TWD/XXXXXX TME/XXXXXK TWO/KXXXMK TW2/KXXXXM TW4/XXXXXX TWO/KXXXXXX AXSWR/XXXXXX 


- - AND IT IS INTERPRETED AS FOLLOWS: 


PC/ PROGRAM COUNTER. THIS IS THE ADDRESS OF THE CALL (PSUEDO-OP ERROR) 
THAT CAUSED THE TRAP TO THE ERROR HANDLING ROUTINE AND WILL, 
INDICATE IN THE PROGRAM LISTING, THE ERROR THAT OCCURRED. THIS IS 
ALWAYS RELEVANT. 


PROCESSOR STATUS WORD AT THE TIME OF THE ERROR. THIS IS ALWAYS 
RELEVANT. 


CONTROL ADDRESS. THIS IS THE ADDRESS OF THE BOARD IN ERROR. IT 
IS ALWAYS RELEVANT. THIS IS THE CONTENTS OF R2. 

IF THE BOARD UNDER TEST WAS A SCAN BOARD, THIS WILL BE THE 
CONTROL ADDRESS (MAINT. MODE CONTROL-WORD 0 ADRS.) OF THE 

BOARD IN ERROR. 

IF THE BOARD UNDER TEST WAS A DISTRIBUTE BOARD, THIS WILL BE 
THE ACTUAL WORD ADDRESS OF THE FAILING DISTRIBUTE WORD. 


CONTROL ADDRESS AUXILIARY. THIS IS RELEVANT ONLY WHEN BOTH 
SCAN AND DISTRIBUTE BOARDS ARE BEING TESTED TOGETHER (DJMPRS). 
AT ALL OTHER TIMES-THIS WILL BE: CX/NR (NOT RELEVANT). 

WHEN BOTH TYPES OF BOARDS ARE BEING TESTED TOGETHER, THIS WILL 
CONTAIN THE ADDRESS OF THE SCAN BOARD AND THE CA/ (ABOVE) 
WILL CONTAIN THE ADDRESS OF THE DISTRIBUTE BOARD. IN SHORT, 
THE DIST. BOARD AT ADRS. (CA/) WAS DRIVING THE SCAN 

BOARD AT ADRS. (CX/). THIS IS THE CONTENTS OF R3. 


CONTROL WORD POINTER. THIS IS ALWAYS RELEVANT. IT IS THE 
ADDRESS OF THE SCAN CONTROL WORD OR THE DISTRIBUTE CONTROL 
WORD, DEPENDING ON THE TYPE OF BOARD UNDER TEST. THE WORD 
THIS ADDRESS POINTS AT (FOR THIS IS THE CONTENTS OF R4) IS THE 
WORD USED TO SET SET/CLEAR MAINT. FLOPS IN SCAN BOARDS OR 
SET/CLEAR THE DISTRIBUTE BOARD WORD DIRECTLY. 


BOARD TYPE. THIS IS THE TYPE OF BOARD THAT WAS UNDER 
TEST AT THE TIME OF THE ERROR. IT WILL ALWAYS BE: BT/SCAN 
BT/DIST; OR BT/DJS (DIST JMPRD TO SCAN). THIS IS ALWAYS RELEVANT. 


FLAGS. THESE ARE FLAG BITS USED BY THE PROGRAM FOR VARIOUS 
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PURPOSES OF MAINTAINING PROGRAM STATUS. BECAUSE THEY MAY 
BE USEFUL IN GENERAL, THEY ARE TYPED OUT AND THEY MAY BE 
INTERPRETED AS FOLLOWS: 


BIT 0 AN ERROR CONDITION EXISTS THAT HAS NOT BEEN 
CLEARED (BY A RESTART OR A BYPASS ERROR) 


THE EXISTING ERROR CONDITION IS INTERMITTANT. 

THE LAST START/RESTART WAS FROM SA1030. (MODULE TEST MODE) 
THE LAST START/RESTART WAS FROM SA200. (S&ORD) 

THE LAST START/RESTART WAS FROM SA1000. (DJMPRS) 

THE LAST START/RESTART WAS FROM SA1010. (S&ORD/AC/EX) 
THE LAST START/RESTART WAS FROM SA1020. (DJMPRS/AC/EX) 
BIT OPERATOR GIVEN DATA WAS BEING USED ON A DJS PASS. 

BIT ERROR RELEVANCY FLAGS. (HOW THE PROG. DETERMINES 

THRU WHAT IS AND IS NOT RELEVANT TO BE TYPED IN 

BIT 15 AN ERROR TYPEOUT. THESE ARE SET AT THE 

BEGINNING OF EACH TEST.) 


THE FOLLOWING ERROR DATA IS NOT ALWAYS RELEVANT. THAT WHICH IS 


BIT 
BIT 
BIT 
BIT 
BIT 
BIT 


onvn ow Ff WH 


NOT RELEVANT WILL BE GIVEN AS NR (NOT RELEVANT). THAT WHICH IS 
RELEVANT WILL BE GIVEN A SIX DIGIT OCTAL VALUE. IN THE DEFINITIONS 
GIVEN BELOW *‘GOOD'' IS WHAT SHOULD HAVE BEEN AND “‘TEST’' IS 

WHAT ACTUALLY WAS. IF “‘TEST’’ DIFFERS FROM ‘'GOOD"', THEN “TEST’ IS BAD. 


GWD/ GOOD WORD. - RELEVANT ONLY TO DISTRIBUTE BOARDS. 
TWD/ TEST (BAD?) WORD. 


GMF / GOOD MAINTENANCE FLOPS. = RELEVANT ONLY TO SCAN BOARDS IN MAINT. MODE. 
TMF / TEST (BAD?) MAINT. FLOPS. 


GwW0/ GOOD SCAN WORD 0 (OF THE SCAN BOARD INDICATED BY CA/). 
TWO/ TEST (BAD?) SCAN WORD 0. 


GW2/ GOOD SCAN WORD 2 (OF THE SCAN BOARD INDICATED BY CA/). 
TW2/ TEST (BAD?) SCAN WORD 2. 


GW4/ GOOD SCAN WORD 4 (OF THE SCAN BOARD INDICATED BY CA/). 
TW4/ TEST (BAD?) SCAN WORD 4, 


GW6/ GOOD SCAN WORD 6 (OF THE SCAN BOARD INDICATED BY CA/). 
TW6/ TEST (BAD?) SCAN WORD 6. 


SWR/ SWITCH REGISTER AS IT WAS AT THE TIME OF THE ERROR. 


AXSWR/ SIMULATED SWITCH REGISTER FOR ACCEPT/EXERCISE MODES. 
THE PROGRAM WAS RUNNING AS IF THE SWITCHES REPRESENTED 
HERE WERE ACTUALLY SET. SEE STARTING-OPERATION, MODES 
3 AND 4, (NWR IS TYPED WHEN THIS IS NOT RELEVANT.) 
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ERROR OPTIONS 


WHEN AN ERROR OCCURS, IF SWR15 IS RESET, THE PROGRAM WILL 
CONTINUE TO THE NEXT ITERATION, SUB-TEST LOOP OR TEST IN 
SEQUENCE. 

IF SWR15 IS SET AT THE TIME OF THE ERROR (SWR15 CAN BE SET 
DURING THE ERROR TYPEOUT) THE PROGRAM WILL HALT AFTER THE 

ERROR TYPEOUT IS COMPLETE, AT WHICH TIME THE OPERATOR HAS 

THE FOLLOWING OPTIONS. 

1. DO NOT SCOPE LOOP, BUT CONTINUE AS IF SWR15 WAS NOT SET 


A. DECIDE IF HALT IS DESIRED ON OCCURANCE OF ANOTHER 
ERROR AND SET SWR15 ACCORDINGLY. 


B. PRESS CONTINUE. 

SCOPE LOOP ON THIS ERROR CONDITION. 

A. RESET SWR15. 

B. SET SWR14_. 

Cc. PRESS CONTINUE. 

D. SEE SCOPE LOOPS SECTION 

EXAMINE MEMORY LOCATIONS, SPECIAL REGISTERS, ETC., WHICH IS USUALLY 
IF HOMEVER, THE OPERATOR CHOOSES. 10 EXAMINE MEMORY ET. "AL. THEN. 


ALL OTHER OPTIONS ARE INVALIDATED AND A PROGRAM RESTART IS 
NECESSARY. 
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SEQ 0013 
SCOPE LOOPS 


SCOPE LOOP ON AN ERROR CONDITION IS EFFECTED AS DESCRIBED IN 
THE ERROR OPTIONS SECTION. 


ONCE A SCOPE LOOP HAS BEEN EFFECTED IT WILL REMAIN IN EFFECT 
FOR AS LONG AS SWR15 IS RESET AND SWR14 IS SET. 


THIS SCOPE LOOP IS LOCKED, THAT IS IT WILL LOOP ON THE 
FAILING TEST EVEN THOUGH IT IS NO LONGER FAILING. SEE 
INTERMITTANT ERRORS SECTION. 


A SCOPE LOOP ON ANY GIVEN TEST CONSISTS OF A LOOP FROM 
THE PSUEDO-OP ‘ERROR’ BACK TO THE LOCATION FOLLOWING THE 
PSUEDO-OP ‘'SCOPE"’. 
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SEQ 0014 
INTERMITTENT ERRORS 


AN INTERMITTENT ERROR IS DEFINED FOR THIS PROGRAM AS FOLLOWS: 

1. AN ERROR HAS OCCURRED AND MADE A TYPEOUT. 

2. THE OPERATOR HAS SET A SCOPE LOOP (THE PROGRAM'S, NOT HIS OWN) 
3. THE SCOPE LOOP IS LOOPING ON ERRORS. 


4. THE ERROR CONDITION FAILS, THAT IS, THE TEST PASSED OK, 
AND WANTS TO CONTINUE TO THE NEXT TEST. 


THE PROGRAM KNOWS THAT AN ERROR CONDITION EXISTS AND THAT A SCOPE 
LOOP WAS IN EFFECT. IT WILL THEREFORE DO THE FOLLOWING: 


1. ON THE FIRST OCCURANCE OF THE INTERMITTENT THE WORD 
INTERMITTENT’ WILL BE TYPED ON THE TTY. 


ON EACH LOOP, EITHER AN ERROR OR AN ‘'OK*' THE COUNTS OF BOTH 
ERROR LOOPS AND “‘OK'’ LOOPS WILL BE TYPED. THE VALUE 

OF THESE COUNTS IS TO GIVE THE OPERATOR SOME IDEA OF THE 
FREQUENCY OF THE INTERMITTENT, THAT IS, HOW MANY TIMES 

IS THE ERROR CONDITION LOST? THESE COUNTS ARE IN EFFECT 

ONLY IN A SCOPE LOOP THAT HAS DETECTED AN INTERMITTENT AND THEY 
BEGIN COUNTING WHEN THE INTERMITTENT IS FIRST DETECTED. 
iviesuts Ine ARE WRAP AROUND. THE FORMAT OF THESE COUNT 


ERC/XXXXXX OKC/XXXXXX 


THE OPERATOR WILL BE UNCONDITIONALLY NOTIFIED ON THE TTY 
WHENEVER EITHER OF THESE COUNTERS OVERFLOW. THE COUNT 
CONTINUES, STARTING AT COUNT 0 AGAIN. NOTHING ELSE HAS CHANGED. 


THE ABOVE TYPEOUT CAN BE INHIBITED BY SETTING SWRO6. 
THE COUNT GOES ON HOWEVER AND CAN BE OBTAINED AT ANY 
TIME BY MOMENTARILY RESETTING SWRO6. 


ALL OTHER SWITCH CONTROLS FOR ERRORS, SCOPE LOOPS, ETC. 
ARE STILL VALID. 
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SEQ 0015 


FORCED ERROR TYPEOUT 


IN THE EVENT OF AN ILLEGAL TRAP TO THE TRAP CATCHER, AN ERROR TYPEOUT 
THAT WILL REFLECT THE STATUS OF THE PROGRAM AT THE TIME OF THE 
ILLEGAL TRAP CAN BE OBTAINED BY STARTING THE PROGRAM AT SA1040. 
SWITCH SETTINGS ARE IMMATERIAL. THE TYPEOUT WILL BE MADE, IN FULL, 
AND THE PROGRAM WILL HALT. 


TRAP CATCHER 


ANY ILLEGAL TRAPS THAT OCCUR WILL CAUSE A HALT SOMEWHERE BETWEEN 
LOCATIONS 000000 AND 000776. THE INITIALIZATION OF THE PROGRAM SET 
UP THESE LOCATIONS SUCH THAT ALL ILLEGAL TRAP VECTORS (‘'NEW'’ PC) 
POINT TO THE NEXT LOCATION ("'NEW'’ PS) WHICH IS SET TO 000000, OR A 
HALT INSTRUCTION. 


IN THE EVENT OF THIS TYPE OF HALT: 
1. AN ILLEGAL TRAP OCCURRED TO THE LOCATION PRECEDING THE HALT LOC. 
2. EXAMINE LOCATION 177706 (STACK POINTER = R6). THIS IS AN ADDRESS. 


3. EXAMINE THE LOCATION THAT WAS SPECIFIED BY THE CONTENTS OF R6. 
THIS IS AN ADDRESS. 


SUBTRACT 2 FROM THE ADDRESS OBTAINED BY STEP 3 ABOVE 
THIS IS THE ADDRESS OF THE INSTRUCTION THAT CAUSED, OR THAT 
WAS IN PROGRESS AT THE TIME OF, THE ILLEGAL TRAP. 


EXAMINE THE NEXT LOCATION (CONTENTS OF R6 + 2). THIS IS THE 
PROCESSOR STATUS WORD AS IT WAS AT THE TIME OF THE 
ILLEGAL TRAP. 


SEE SECTION FORCED ERROR TYPEOUT. 
-ENDR 
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000000 


000007 
177560 


001143 
000240 


104777 
100000 


004000 
000100 


000001 


000001 
000002 
000004 
000010 
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~-TITLE (CB11 
BS 


; EQUATES 


TKS=177560 
TKB=177562 
TPS=177564 
TPB=177566 
KWLS=177546 
KWPS=172540 


SCOPE=TRAP 
ERROR=EMT 


R 
CONTROL=104777 


HES=100000 
SLS=40000 
$TS=20000 
TTS=10000 
ITS=4000 


IMS= 100 


sREGISTER 
sREGISTER 
s REGISTER 
sREGISTER 
sREGISTER 
sREGISTER 
s REGISTER 
sREGISTER 
sREGISTER 
sREGISTER 
sREGISTER 
sREGISTER 
sREGISTER 
sREGISTER 


:TTY KEY BOARD STATUS. 

: TTY KEYBOARD BUFFER. 

TTY PRINTER STATUS. 

: TTY PRINTER BUFFER. 

LINE CLOCK STATUS. 

sREAL TIME CLOCK STATUS. 

sREAL TIME CLOCK BUFFER. 

REAL TIME CLOCK COUNTER. 
PROCESSOR STATUS 

ERROR TYPEOUT RELEVANCY FLAGS.. 


;PSUEDO-OP NO OPERATION. 

;RETURN FROM ‘'T'’ TRAP INTERRUPT. 
;PSUEDO-OP TRAP. 

;PSUEDO-OP EMT. 

;PSEUDO-OP TRAP. 


;SWR15 HALT ON ERROR. 


GENERAL 

GENERAL 

SPECIAL 

SPECIAL 

SPECIAL 

SPECIAL 

SPECIAL U 

SPECIAL USE. 

CONTROL ADDRESS POINTER. 


AUXILIARY CONTROL ADDRESS POINTER. 


CONTROL WORD POINTER 
SUBROUTINE POINTER. 
STACK POINTER. 
PROGRAM COUNTER. 


sSWR14 
:SWR13 
:SWR12 
;SWR11 


:SwROO 
FLAG ERROR CONDITION 


FLAG 
3FLAG MODULE MODE START. 
sFLAG S &OR D DIAG. START. 


SCOPE LOOP. 

oats eee G ERROR TYPEOUTS. 
TRACE TRAP 

ITERATE. 


INHIBIT INTERMITTANT TYPEOUTS. 
TYPE PASS COUNT AT END OF PASSES. 
TYPE PROGRAM STATUS. 

INHIBIT TTY QUERIES. 

SHORTEN TIME DELAYS BY -102 
LENGTHEN TIME DELAYS BY +102 
SHORT ERROR MESSAGES (PC ONLY). 


ERROR CONDITION IS INTERMITTANT. 


SEQ 0016 
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DJMPRS DIAG. START. 
S$ GOR D ACCEPT/EXERCISE START. 
DJMPRS ACCEPT/EXERCISE START. 
DATA IN USE ON DJMPRS/ 
CAX RELEVANT. 
CWORD RELEVANT. 
GWO & TWD RELEVANT. 
GMF & TMF oy Marea 
GWO & TWO RELEVANT 
GW2,GW4,GW6,TW2,TW4 & TW6 RELEVANT 
SCAN’ RELEVANT. 
AG "‘DIST’’ RELEVANT. 
FLAGS ALL THAT IS RELEVANT TO SCAN BDS. 
FLAGS ALL TYPEOUTS ARE RELEVANT TO DIST. BDS. 
FLAGS ALL THAT IS RELEVANT TO DuS. 
000377 ALRF=377 FLAGS ALL TYPEOUTS ARE RELEVANT. 
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000200 


001000 


001010 


001020 


001030 


001040 


001106 


000200 
000137 


001000 
000167 


001010 
000167 


001020 
000167 


001030 
000167 


001040 
010667 


000776 
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007462 


006476 


006504 


006504 


006436 


00022¢ 
001000 


000166 


042503 
042520 


ZSTART = SA200 
:NORMAL PROGRAM START TO TEST SCAN BOARDS AND/OR epegermail BOARDS 
sWHILE DISCONNECTED FROM ALL TELEPHONE CO. INPUTS 


.=200 
S.ORD: JMP av INIT 


sSTART = SA1000 
SPECIAL START FOR SUB-PROGRAM ‘‘DJMPRS'’ TO TEST ‘DISTRIBUTE BOARDS 
;JUMPERED TO SCAN BOARD" WHILE DISCONNECTED FROM ALL TELEPHONE INPUTS. 


-=1000 
DJMPRS: JMP INITA 


START = SA1010 
SPECIAL START TO RUN ACCEPTANCE/EXERCISE OF SCAN BOARDS AND/OR DISTRIBUTE 
sBOARDS WHILE DISCONNECTED FROM ALL TELEPHONE CO. INPUTS. 


-=1010 
S.ORDAX: JMP INITA2 


START = SA1020 
SPECIAL START TO RUN ACCEPTANCE/EXERCISE OF SUB-PROGRAM ‘'‘DJMPRS'’ TO 
TEST TWO CONTIGUOUS DISTRIBUTE BOARDS WHOSE OUTPUTS ARE JUMPERED TO 


:THE INPUTS OF ONE SCAN BOARD WHILE DISCONNECTED FROM ALL TELEPHONE CO. INPUTS. 


20 
DJSAX: JMP INITAS 


START = $A1030 
:SPECIAL START FOR MODULE TEST MODE. 


-=1030 

MODMOD: JMP INITAS 

START = SA1040 

sSPECIAL START TO FORCE AN ERROR TYPEOUT AFTER AN ILLEGAL TRAP HAS OCCURRED. 
-=1040 


FORCER: a STP, FESAV 
#1000,STP 


$,TYPEA 

"* FORCED TYPEOUT."’ 
$,TYPERR 

FESAV,STP 

FORCEA 


M 
FORCEA: 
BR 


SEQ 0018 
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; CONSTANTS. 


001110 000010 : : ITERATION NUMBER. 
001112 000001 : ;NO. OF MS FOR DELAY. 
816 001114 000007 : NO. OF MS FOR DELAY. 
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VARIABLES - NOT CLEARED ON START OR RESTART. 


;LOWEST SCAN ADDRESS (GIVEN BY OPERATOR). 
HIGHEST SCAN ADDRESS (GIVEN BY OPERATOR). 
sLOWEST DISTRIBUTE ADDRESS (GIVEN BY OPERATOR). 
HIGHEST DISTRIBUTE ADDRESS (GIVEN BY OPERATOR). 
;LO SCAN ADRS. AUXILIARY. 

sHI SCAN ADRS. AUXILIARY. 

LO DIST. ADRS. AUXILIARY. 

sHI DIST. ADRS. AUXILIARY. 

sSWITCH REGISTER POINTER. 

DATA WORD. 

PROGRAM FLAGS. 

PROGRAM FLAGS AUXILIARY. 


VARIABLES - CLEARED ON START OR RESTART. 


001146 000000 BEGV: 0 

PASCTR: PASS COUNTER 0 
: ITERATION COUNTER, 
;SCOPE LOOP RETURN POINTER. 
: INTERMITTANT ERROR COUNTER. 
:SAVED PC. 
sSAVED PS. 

SAVED SWR. 

+ SAVED CONTROL ADDRESS POINTER. (R2) 
CONTROL ADDRESS AUXILIARY POINTER. (R3) 
CONTROL WORD POINTER. (R4) 
ITERATION COUNTER. 
 Sceecnsticnn ERROR *‘OK’’ COUNTER. 


001116 000000 


ooooooooo°ceoo 


001144 000000 


R1. 
STACK POINTER. 
ED FLAGS. 
SWITCH REG. USED WITH ACCEPT/EXERCISE. 
sRETURN POINTER USED WITH ACCEPT/EXERCISE 
;GOOD MAINT. FLAGS. 


WORD 6. 
MAINT. FLOP 
WORD 

WORD 0. 
WORD 2 

WORD 4. 

WORD 6. 

IME LIMIT FOR SUBR. TIME. 
TORIG. TYPE CALL SOURCE. 
QUERY SOURCE 
KEY IN CHARACTER COUNTER, 
DELAY NUMBER TYPE 1. 
;DELAY NUMBER TYPE 2. 

:DELAY OFFSET TYPE 1. 
sDELAY OFFSET TYPE 2 


0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 


001262 000000 DLAOF2: 
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000000 


000000 
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SAVERC: 
DLACTR: 
KCSR: 
FESAV: 
ERCTR: 
OKCTR: 
ENDV: 


SEQ 0021 


;SAVED INTERMITTENT ERROR ‘‘ER’’ COUNTER. 
sDELAY COUNTER. 

CLOCK CSR (ACTUAL). 

;FORCED ERROR TYPEOUT STP STORAGE. 

: INTERMITTENT COUNTER = ERRORS. 

; INTERMITTENT COUNTER = OK'S. 
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001302 


001436 
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000000 


000000 


SEQ 0022 


SCAN CONTROL WORD TABLE. 


;CONTROL WORDS USED TO SET AND CLEAR THE MAINTENANCE FLOPS AND SCAN WORDS. 
THE MAINT. FLOPS AND SCAN WORDS SET OR CLEARED ARE GIVEN BELOW IN 

REFERENCE TO WORD 0, WORD 2, WORD 4 & WORD 6 OF A SCAN MODULE. 

THESE BITS, WHEN USED IN BYTE INSTRUCTIONS CORRESPOND TO BITS 8, 9, 10 & 11. 


Vi DB NOUSWN—O 


& 


Nm 


0 
1 
2 
3 
4 
5 
6 
7 
1 
1 
1 
1 
1 
1 
1 
1 
0 
1 
1 
1 
2 
1 
3 
13 
4 
1 
5 
1 
6 
1 
7 
0 
7 
1 
6 
1 
5 
1 
4 
1 
3 
1 
2 
1 
1 
1 
0 


CLEARS: SETS: 


2 
oO 
2 
m 
> 
oe 
- 


. ” . 
mE AMAD MLL 
8 
= 
. — . . _ 
. . >. . 
= Qn An 


.*. 8 8 


ees ese ees 
. 
. 
Nm FEM AOMALS 


Be Se Ge Se Se Se Ge Be Ge Ge Be Be Se Se Ge Ge 
>. * 


FMOLONMOAONOLONG 
ZONVOLONMOAONMOLONM 


; ONE 

:SCW20 THRU SCW77 SETS & CLEARS WORDS AS 
:GIVEN ABOVE FOR THE SAME CONSTANTS. (SCW21 IS 
THE SAME AS FOR SCW16.) 
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001440 000017 


—-Oo- OO | OS hh Sh 
™m Nm Nm Nm ~s 


= = = sS 


001500 000017 
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000000 


111111 


8 0 
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DISTRIBUTE CONTROL WORD TABLE. 
;WORDS USED TO DIRECTLY SET DISTRIBUTE BOARDS IN BOTH THE DISTRIBUTE 
TESTS AND IN THE DISTRIBUTE-JUMPERED-TO-SCAN-TEST. 


111111 


SEQ 0024 





CB11 
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CZCBAC.P11 03-MAR-78 
001650 oeeede 


001700 


O3-MAR-78 09:20 PAGE 25 


09:19 


022222 


SEQ 0025 
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001702 


002006 
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011467 


000205 


177306 
177306 
000001 


177272 
177270 
000002 


177254 
177252 
000004 


177236 
177234 
000010 


177220 


177274 


177254 


177234 


177214 


;SUBROUTINE TO INITIALIZE GOOD WORDS FOR SCAN CONTROL TESTS. 
; (SIMULATE THE ACTION OF SCAN BOARDS IN MAINT. MODE.) 


1Z7GSW: 


IZGSWA: 


1Z7GSWB: 


1ZGSWC: 


IZGSWD: 


(CWP) , GMF : INIT. GOOD MAINT. FLOP. 
WO : INIT. GOOD WORD 0. 


INIT. GOOD WORD 2. 


: INIT. GOOD WORD 4. 


INIT. GOOD WORD 6. 


SEQ 0026 
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002010 
002014 
002020 


002024 
002030 


002034 


002076 
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016700 
016701 
000167 


016700 
016701 


010067 


000205 
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177240 
177240 
000010 


177226 
177226 


177226 
000004 


177212 
000002 


177176 
177172 


177070 


177054 


; SUBROUTINES TO DELAY 


DELAY1: MOV 
MOV 


DELAY2: 
M 


DELAY: 


DLAA: 


DLAB: 


DLANO1,RO 
DLAOF1,R1 
DELAY 


DLANO2 ,RO 
DLAOF2,R1 


RO,DLACTR 
#SDS ,aSWR 
DLAA 

r1,DLACTR 
#LDS,aSwR 


DLAB 
R1,DLACTR 
DLACTR 
— 








om 


SEQ 0027 


TEMP. STORE DELAY NO. 1. 
; TEMP. STORE DELAY OFFSET 1. 


; BRANCH. 


TEMP. STORE DELAY NO. 2. 
TEMP. STORE DELAY OFFSET 2. 


INIT. DELAY COUNTER 

; SHORTEN DELAY? 

NO. = BRANCH. 

YES. = SHORTEN DELAY BY 10%. 
LENGTHEN DELAY? 

NO. = BRANCH. 

YES. = LENGTH DELAY BY 10%. 
;DECREMENT DELAY COUNTER. IS IT ZERO? 
NO. = BRANCH. 

7YES. - RETURN. 
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sARE THERE SCAN BOARDS TO BE TESTED AND/OR IS TESTING REQUESTED? 
002100 032767 000120 177034 PREST: — TEST DJMPRS WHERE DATA HAS 


P BEEN SPECIFIED? 
000200 177024 #DATF,FLAGS 
PRESTA O. - BRANCH. 
002526 J IDJ YES. - GO DIRECTLY TO DJMPRS TESTS. 
176766 000116 PRESTA: LOSA,#'N TEST SCAN BOARDS? 
B PRESTB ‘YES. = BRANCH. 
001570 J PREDT NO. - BRANCH 
000004 176774 PRESTB: #MOD , FLAGS : MODULE TEST MODE? 
STMBEG :YES. = BRANCH. 
002150 000167 000074 STOBEG NO. = BRANCH. 


SCAN TEST M 

:CHECK THAT ALL SCAN BOARD ADDRESSES NOT GIVEN BY THE OPERATOR 
:D0 NOT RESPOND TO A TEST INST. AN ERROR INDICATES THAT 

de i oe RESPONDING TO ADDRESS(ES) OTHER THAN ITS OWN 


002154 016702 176736 STMBEG: LOSA,CADR INIT. CONTROL ADRS. POINTER. 
B #3777,CADR sFORCE IT TO 164000. 
#STMTS,4 INIT. TIMEOUT-ERROR TRAP VECTOR. 
000100 #SF ,RFLGS INIT. ERROR RELEVANCY FLAGS. 
;SCOPE TRAP. 
176710 STMLOP: CADR,LOSA sEXCLUDE TESTING THIS ADDRESS. 
STMADV YES. = BRANCH. (IT'S WHERE THE BOARD IS.) 


(CADR) TEST SCAN ADRS. 
STMERR :IF - TRAP OCCURS, GO TO “'STMERR'’ - 
STMTS: CMP (STP)+,(STP)+ IF A TRAP OCCURS IT RETURNS HERE AS ‘OK’. 
STMOK : :CONTROL TRAP. 
STMERR: ERROR TRAP. 
167770 aie ALL ADRS. CONFIGURATIONS TESTED? 


iv 
000010 STMADV: #10,CADR :NO. - ADVANCE CONTROL ADRS. PTR. 
STMLOP BRANCH, 
000006 175540 STMEND: #6,4 INIT. (CLOSE) TIMEOUT-ERROR TRAP VECTOR. 
002244 000167 000000 STOBEG ;BRANCH. 
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;SCAN TEST 0 

;CHECK THAT ALL SCAN ADDRESSES GIVEN BY THE OPERATOR AT LEAST RESPOND 
:TO A TST INST. AN ERROR (VIA TIME OUT-ERROR TRAP) INDICATES EITHER 
:A BAD ADDRESS OR A NON-EXISTANT ADDRESS WAS GIVEN BY THE OPERATOR. 


002250 016702 176642 STOBEG: MOV LOSA,CADR : INIT. CONTROL ADRS. POINTER. 
002276 175522 MOV #STOTS,4 ; INIT. TIME OUT-ERROR TRAP VECTOR. 
000100 176653 MOVB #SF,RFLGS : INIT. ERROR RELEVANCY FLAGS. 

SCOPE :SCOPE TRAP. 
STOLOP: TST (CADR) TEST A SCAN ADDRESS. 
BR $TOOK :I1F NO TRAP OCCURS, GO TO ‘'STOOK"'.- 
STOTS: CMP (STP)+,(STP)+  ;IF A TRAP OCCURS, GO TO "’STOERR’’ VIA- 
BR STOERR A TIME OUT-ERROR TRAP TO VECTOR 4. 
STOOK: CONTROL CONTROL TRAP. 
STOERR: ERROR TRAP. 
176606 CADR,HISA sALL GIVEN ADDRESSES TESTED? 
OEND YES. = BRANCH. 
000002 NO. = ADVANCE CONTROL ADRS. PTR. 


BR ;BRANCH. 
000006 175454 STOEND: #6,4 INIT. (CLOSE) TIMEOQUT-ERROR TRAP VECTOR. 
002330 000167 000000 J ST1BEG ;BRANCH. 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


NUSSaweusuuveeSseee 
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1123 

1124 ;SCAN TEST 1 

1125 CHECK THAT MAINTENANCE FLOP ACCESS OF ALL SCAN ADDRESSES GIVEN 
26 :BY THE OPERATOR AT LEAST RESPOND PROPERLY TO A TST INST. 


002334 016702 176556 STIBEG: MOV LOSA,CADR INIT. CONTROL ADDRESS POINTER. 
002364 175436 MOV #ST1TS,4 INIT. TIME OUT-ERROR TRAP VECTOR. 
000100 176567 MOVB #SF,RFLGS ; INIT. ERROR RELEVANCY FLAGS. 
SCOPE ;SCOPE TRAP. 
000001 STILOP: TSTB +1(CADR) TEST ACCESS TO MAINT. FLOPS. 
BR $T10k :1F NO TRAP OCCURS, GO TO ‘'ST10K"'.- 
STITS: CMP (STP)+,(STP)+  ;IF A TRAP OCCURS, GO TO "’STIERR’’ VIA- 
BR STIERR 3A TIME OUT-ERROR TRAP TO VECTOR 4. 
ST1OK: CONTROL CONTROL TRAP. 
STIERR: ERROR ERROR TRAP. 
176530 CMP CADR ,HISAX sALL MAINT. FLOP ACCESSES TESTED? 
BEQ STIEND 7YES. = BRANCH. 
000010 ADD NO. = ADVANCE CONTROL ADRS. PTR. 
BR BRANCH. (NEXT SUB-TEST LOOP) 
000006 175366 STIEND: MOV . INIT. TIME OUT-ERROR TRAP VECTOR. 
002416 000167 000000 JMP ST2BEG ;BRANCH. 


WN Oo OOn 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
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sSCAN TEST 2 
CHECK THAT ALL MAINTENANCE FLOPS ARE RESET AND THAT ALL SCAN 
;WORD BITS ARE SET BY THE ACTION OF THE RESET INSTRUCTION 


002422 016702 176470 ST2BEG: MOV LOSA,CADR ; CONTROL ADDRESS POINTER. 
MOV #SCwOO, CWP ; CONTROL WORD POINTER. 
$,1Z7GSW ; *"G00D"’ WORDS. 
000172 176477 #SRF,RFLGS ; INIT. ERROR RELEVANCY FLAGS. 


S RAP. 
ST2LOP: EAR ALL MAINT. FLOPS, SET ALL SCAN BITS. 
000001 176552 MO +1(CADR), TMF TREAD MAINT. FLOPS. 
$,DELAY1 :WAIT. 
176544 +0(CADR), TWO sREAD SCAN WORD 0. 
+2(CADR) ,TW2 zREAD SCAN WORD 2. 
+4(CADR) , TW4 READ SCAN WORD 4. 
+6(CADR) , TW6 READ SCAN WORD 6. 
176512 176474 TMF ,GMF MAINT. FLOPS CLEARED? 
STZERR NO. = BRANCH 
176506 176470 TWO,GWO :YES. = SCAN WORD 0, ALL BITS SET? 
ST2ERR NO. = BRANCH 
176500 176462 TW2,GW2 :YES. = SCAN WORD 2, ALL BITS SET? 
STZERR NO. - BRANCH 
176472 176454 TW4 ,GW4 oo = SCAN WORD 4, ALL BITS SET? 
STZERR ~ BRANCH 
176464 176446 TW6 ,GW6 YES. - SCAN WORD 6, ALL BITS SET? 
BNE ST2ERR NO. = BRANCH. 
ST20K: ;CONTROL TRAP. 
ST2ERR: ERROR TRAP. 
176336 C CADR ,HISAX sALL MAINT. FLOPS & SCAN WORDS TESTED? 
T2END :YES. = BRANCH. 
000010 NO. = ADVANCE CONTROL ADRS. PTR. 
BR BRANCH. (NEXT SUB-TEST LOOP) 
002602 000167 000000 ST2END: JMP ST3BEG ; BRANCH 


AUiFWNH OC DOONAUEWN—O OONOUFWN O°” 


4 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
6 
6 
6 
6 
6 
6 
6 
6 
6 
6 
7 
7 
7 
7 
7 
7 
7 
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1177 

1178 ! sSCAN TEST 3 

1179 :CHECK THAT ALL MAINTENANCE FLOPS CAN BE SET AND THAT ALL SCAN 
:WORDS CAN BE CLEARED. 


002606 016702 176304 ST3BEG: a LOSA,CADR : INIT. CONTROL ADDRESS POINTER. 
#SCW17,CwP INIT. CONTROL WORD POINTER. 
$,1Z7GSW : INIT. ‘'GOOD'' WORDS. 

000172 176313 #SRF,RFLGS : INIT. ERROR RELEVANCY FLAGS. 
S :SCOPE TRAP. 
000001 ST3LOP: (CWP),+#1(CADR) ;SET ALL MAINT FLOPS, CLEAR ALL SCAN BITS. 
176364 M +1(CADR), TMF READ MAINT. FLOPS 
$,DELAY1 sWAIT 
176356 +0(CADR), TWO ;READ SCAN WORD 0. 
+2(CADR), TW2 sREAD SCAN WORD 2. 
+4(CADR), TW4 READ SCAN WORD 4. 
+6(CADR), TW6 READ SCAN WORD 6. 
176324 176306 TMF ,GMF MAINT. FLOPS SET? 
ST3ERR ;NO. - BRANCH 
176320 176302 TWO, GWO YES. = SCAN WORD 0 CLEARED? 
ST3ERR NO. = BRANCH 
176312 176274 TW2,GW2 sYES. = tod WORD 2 CLEARED? 
ST3ERR NO. - BRAN 
176304 176266 TW4 ,GW4 sVES. = SCAN WORD 4 CLEARED? 
ST3ERR NO. - BRANCH 
176276 176260 TW6 , GW6 YES. = SCAN WORD 6 CLEARED? 
BNE ST3ERR NO. = BRANCH 
ST30K: CONTROL YES. = CONTROL TRAP. 
STSERR: ERROR ERROR TRAP. 
176150 CMP CADR ,HISAX sALL GIVEN ADDRESSES TESTED? 
BEQ 3 YES. - BRANCH 
000010 ADD :NO. = ADVANCE CONTROL ADRS. 
BR ;BRANCH (NEXT SUB-TEST LOOP) 
002770 000167 000000 ST3END: JMP ST4BEG ; BRANCH. 


SSSLESRANLESESEALALSS 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
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1 
1 
1 
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SCAN TEST 4 
CHECK THAT ALL MAINTENANCE FLOPS ARE RESET AND THAT ALL SCAN 
:WORD BITS ARE SET BY THE ACTION OF THE RESET INSTRUCTION. 


002774 016702 176116 ST4BEG: MOV LOSA,CADR INIT. CONTROL ADDRESS POINTER. 
MOV #SCwWOO, CWP INIT. CONTROL WORD POINTER. 
- 1ZGSW s INIT. ‘'GOOD'’ WORDS. 
000172 176125 #SRF ,RFLGS :INIT. Hy RELEVANCY FLAGS. 
Ss 
ST4LOP: :CLEAR ALL MAINT. FLOPS, SET ALL SCAN BITS. 
000001 176200 M +1(CADR), TMF READ MAINT. FLOPS 
$,DELAY1 sWAIT 
176172 +0(CADR), TWO sREAD SCAN WORD 0. 
+2(CADR),TW2 ;READ SCAN WORD 2. 
+4(CADR), TW4 READ SCAN WORD 4. 
+6(CADR), TW6 ;READ SCAN WORD 6. 
176140 176122 TAF ,GMF Ne FLOPS CLEARED? 
ST4ERR 0. - BRANCH 
176134 176116 TWO ,GWO yes. = SCAN WORD 0, ALL BITS SET? 
ST4ERR NO. - BRANCH 
176126 176110 TW2,GW2 YES. = SCAN WORD 2, ALL BITS SET? 
ST4ERR ;NO. - BRANCH 
176120 176102 TW4 ,GW4 ; - SCAN WORD 4, ALL BITS SET? 
ST4ERR : - BRANCH 
176112 176074 TW6 ,GW6 ; ° od WORD 6, ALL BITS SET? 
B ST4ERR ZNO. - BRANCH 
ST40K: :CONTROL TRAP. 
ST4ERR: TERROR TRAP. 
175764 CADR ,HISAX sALL MAINT. FLOPS & SCAN WORDS TESTED 
ST4END YES. = BRANCH. 
000010 #10,CADR 7NO. = ADVANCE CONTROL ADRS. PTR. 
BR ST4LOP BRANCH. (NEXT SUB-TEST LOOP) 
003154 000167 000000 ST4END: JMP STSBEG ;BRANCH,. 
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SCAN TEST 5 
;CHECK THAT ALL MAINTENANCE FLOPS CAN BE SET AND THAT ALL SCAN 
WORDS CAN BE CLEARED. 


003160 016702 175732 STSBEG: MOV LOSA,CADR ; INIT. CONTROL ADDRESS POINTER. 
001340 0 #SCW17,CwP INIT. CONTROL WORD POINTER. 
176506 $,17GSW : INIT. ‘'GOOD'’ WORDS. 
000172 175741 : #SRF ,RFLGS score tae RELEVANCY FLAGS. 
003204 111462 000001 STSLOP: (CWP),+#1(CADR) ;SET ALL MAINT FLOPS, CLEAR ALL SCAN BITS. 


003210 116267 000001 176012 +1(CADR), THF READ MAINT. FLOPS 
$,DELAY1 sWAIT 
176004 +0(CADR), TWO sREAD SCAN WORD 0. 
+2(CADR), TW2 sREAD SCAN WORD 2. 
+4(CADR) , TW4 READ SCAN WORD 4. 
+6(CADR), TW6 READ SCAN WORD 6. 
175752 9175734 TMF ,GAF MAINT. FLOPS SET? 
STSERR NO. = BRANCH 
175746 175730 TWO, GWO YES. = SCAN WORD 0 CLEARED? 
STSERR NO. - BRANCH. 
175740 175722 TW2,GW2 YES. = SCAN WORD 2 CLEARED? 
STSERR NO. - BRANCH 
175732 175714 TW4 ,GW4 YES. = SCAN WORD 4 CLEARED? 
STSERR :NO. - BRANCH 
175724 175706 TW6 ,GW6 sYES. = co WORD 6 CLEARED? 
B STSERR NO. - BRANCH 
ST5OK: sYeS. = {CONTROL TRAP. 
STSERR: ERROR ERROR T 
175576 CADR ,HISAX 3 ALL GIVEN. ADDRESSES TESTED? 
STSEND 7YES. = BRANCH. 
000010 #10,CADR :NO. = ADVANCE CONTROL ADRS. 
BR STSLOP BRANCH (NEXT SUB-TEST LOOP) 
003342 000167 000000 STSEND: JMP ST6BEG ;BRANCH. 
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:SCAN TEST 6 
CHECK THAT ALL MAINTENCE FLOPS CAN BE RESET AND THAT ALL SCAN 
;WORD BITS CAN BE SET. 
003346 016702 175544 ST6BEG: MOV LOSA,CADR INIT. CONTROL ADDRESS POINTER. 
001302 #SCWO0, CWP INIT. CONTROL WORD POINTER. 
176320 $,12GSW : INIT. “GOOD'' WORDS. 
000172 175553 - #SRF ,RFLGS score = ERROR RELEVANCY FLAGS. 
000001 ST6LOP: (CWP),+#1(CADR) ;CLEAR ALL MAINT. FLOPS, SET ALL SCAN BIT 
175624 +1(CADR), TMF READ MAINT. FLOPS 
$,DELAY1 WAIT 
175616 +0(CADR), TWO sREAD SCAN WORD 0. 
175612 +2(CADR), TW2 sREAD SCAN WORD 2. 
175606 +4(CADR),TwW4 READ SCAN WORD4. 
175602 +6(CADR), TW6 READ SCAN WORD 6. 
175564 175546 . ge anand. CLEARED? 
°N - 
175560 175542 YES. = SCAN WORD 0, ALL BITS SET? 
NO. - BRANCH 
175552 175534 YES. = SCAN WORD 2, ALL BITS SET? 
NO. - BRANCH 
175544 175526 = ph ome WORD 4, ALL BITS SET? 
IN . = 
175536 175520 YES. = SCAN WORD 6, ALL BITS SET? 
BNE NO. = BRANCH. 
ST60K: :CONTROL TRAP. 
ST6ERR: ERROR TRAP. 


175410 C ° sALL MAINT. FLOPS & SCAN WORDS TEST. 
6 7YES. = BRANCH. 
000010 3NO. - ADVANCE CONTROL ADRS. PTR. 
BR BRANCH. (NEXT SUB-TEST LOOP). 
003530 000167 000000 ST6END: JMP ST7BEG ;BRANCH. 
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3SCAN TEST 7 
CHECK THAT ALL MAINTENANCE FLOPS AND SCAN WORDS WILL SET TO ALL POSSIBLE CONFIGURATIONS 


003534 016702 175356 ST7BEG: MOV LOSA,CADR INIT. CONTROL ADDRESS POINTER. 
000172 175375 MOVB #SRF,RFLGS ; INIT. ERROR RELEVANCY FLAGS. 
001302 ST7L2: #SCWOO, CWP INIT. CONTROL WORD POINTER. 
S SCOPE TRAP. 
176122 ST7L1: JSR $,12GSW INIT. "GOOD" WORDS. 
M (CWP) ,+#1(CADR) ;SET MAINT. FLOPS AS PER CONTROL WORD PTR. 
175436 +1(CADR), TMF READ MAINT. FLOPS 
$,DELAY1 sWAIT. 
175430 +0(CADR), TWO zREAD SCAN WORD 0. 
+2(CADR), TW2 zREAD SCAN WORD 2. 
+4(CADR), TW4 ;READ SCAN WORD 4. 
+6(CADR), TW6 READ SCAN WORD 6. 
175376 175360 GM sMAINT. Parl OK? 
175372 175354 YES. = SCAN WORD 0 OK? 
:NO. - BRANCH. 
175364 175346 — gird, WORD 2 OK? 
175356 175340 ives. = SCAN WORD 4 OK? 
NO. - BRANCH. 
175350 175332 YES. = SCAN WORD 6 Ok? 
BNE NO. - BRANCH 
ST70K: ;YES. = CONTROL TRAP. 
ST7ERR: TERROR TRAP. 
175572 C (CWP) +, SCW77 ALL CONTROL WORDS TESTED ON THIS WORD? 
ST7L1 NO. - BRANCH 
175214 CADR ,HISAX YES. ALL SCAN BOARDS TESTED. 
T7E YES. = BRANCH 
000010 :NO. = ADVANCE CONTROL ADRS. PTR. 
ST7L2 CH. 


BR 
003724 000167 000000 ST7END: JMP TBRANCH. 
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003754 


003760 


004050 


026727 


000167 


016702 


000167 


175166 


006416 
000004 


000074 


175136 


0 
000200 
175110 


167770 
000010 


000006 
000000 


000116 


175170 


174006 
175137 


173734 


SEQ 0037 


sARE THERE DISTRIBUTE BOARDS TO BE TESTED AND/OR IS TESTING REQUESTED? 


PREDT: LODA,#'N ; TEST - an BOARDS? 
PREDTA :YES. = RANCH 
J PEND NO. = BRANCH. 
PREDTA: #MOD,FLAGS MODULE TEST MODE? 
B DTMBEG 7YES. = BRANCH. 
DTOBEG NO. = BRANCH. 


DIST. TEST M 

CHECK THAT ALL DIST. BOARD ADDRESSES NOT GIVEN BY THE OPERATOR 
:D0 NOT RESPOND TO A TEST INST. AN ERROR INDICATES THAT 

bon a IS RESPONDING TO ADDRESS(ES) OTHER THAN ITS OWN 


DTMBEG: LODA,CADR INIT. CONTROL ADRS. POINTER. 
B #3777,CADR sFORCE IT TO 164000. 
#DTATS,4 INIT. TIMEQUT-ERROR TRAP VECTOR. 
#OF ,RFLGS INIT. ERROR RELEVANCY FLAGS. 
SCOPE TRAP. 
DTMLOP: CADR,LODA sEXCLUDE TESTING THIS ADDRESS. 
DTMADV YES. = BRANCH. (IT'S WHERE THE BOARD IS.) 
(CADR) TEST DIST. ADRS. 
DTMERR :1F NO TRAP OCCURS, GO TO ‘‘DTMERR'’ - 
DITMTS: (STP)+,(STP)*  ;1F A TRAP OCCURS IT RETURNS HERE AS ‘'OK"’. 
DTMOK: enti TRAP. 
DTMERR: ERROR TRAP. 
a ALL ADRS. CONFIGURATIONS TESTED? 


iY 
DTMADV: :NO- ~- ADVANCE CONTROL ADRS. PTR. 


:BRANCH. 
DTMEND: INIT. (CLOSE) TIMEOUT-ERROR TRAP VECTOR. 
DTOBEG ;BRANCH. 
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DIST. TEST 0 

:CHECK THAT ALL DISTRIBUTE ADDRESSES GIVEN BY THE OPERATOR AT LEAST 
RESPOND TO A TST INST. AN ERROR (VIA TIMEQUT-ERROR TRA) INDICATES 
eenaten BAD ADDRESS OR A NON-EXISTENT ADDRESS WAS GIVEN BY THE 


004054 016702 175042 DTOBEG: MOV LODA,CADR INIT. CONTROL ADDRESS POINTER. 
004102 173716 MOV #0TOTS,4 INIT. TIMEQUT-ERROR TRAP VECTOR. 
000200 175047 MOVB #D0F ,RFLGS INIT. ERROR RELEVANCY FLAGS. 
SCOPE SCOPE TRAP. 
DTOLOP: TST (CADR) TEST A DISTRIBUTE ADDRESS. 
BR DTOOK :1F NO TRAP OCCURS, GO TO ‘DTOOK"’.- 
DTOTS: CMP (STP)+,(STP)+  ;IF A TRAP OCCURS, GO TO ‘‘DTOERR VIA- 
BR DTOERR A TIMEOUT-ERROR TRAP TO VECTOR 4. 
DTOOK: CONTROL :CONTROL TRAP. 
DTOERR: ERROR ERROR TRAP. 
175006 CMP CADR,HIDA zALL GIVEN ADDRESSES TESTED? 
BEQ 0 :YES. = BRANCH 
000002 ~ soni ed, ADVANCE CONTROL ADRS. PTR. 
000006 173650 DTOEND: MOV #6,4 INIT. (CLOSE) TIMEOUT-ERROR TRAP VECTOR. 
004134 000167 000000 JMP DT1BEG BRANCH. 
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sDIST. TEST 1 
CHECK THAT ALL DISTRIBUTE WORDS ARE RESET BY THE ACTION OF THE 
RESET INSTRUCTION. 


004140 016702 174756 DT1BEG: LODA,CADR : INIT. CONTROL ADDRESS POINTER. 
#0CW00, CWP INIT. CONTROL WORD POINTER. 
2 (CWP) ,GWD ;INIT "GOOD" WORD. 
000206 174761 #ORF ,RFLGS : INIT ERROR RELEVANCY FLAGS. 
:SCOPE TRAP. 
DTILOP: ;CLEAR ALL DISTRIBUTE WORDS. 
175040 (CADR) , TWD READ DIST. WORD. IS IT ZEROS? 
NE DTIERR NO. = BRANCH. 
DT10K: YES. = CONTROL TRAP. 
DTIERR: ERROR TRAP. 
174720 CADR,HIDA sALL DIST. Bigg TESTED? 
DT1END :YES. = BRANCH 
000002 #2,CADR zNO. = ADVANCE CONTROL ADRS. PTR. 
DT1LOP BRANCH. 
004214 000167 000000 DTIEND: DT2BEG ;BRANCH. 
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;DIST. TEST 2 
:CHECK THAT ALL DISTRIBUTE WORDS CAN BE SET TO ALL ONES. 


004220 016702 174676 DT2BEG: LODA, CADR ; CONTROL ADDRESS POINTER. 
224 001700 #0CW77, CWP sINIT. CONTROL word POINTER. 
174762 (CWP), GWD : "6000" 
000206 174701 #DRE ,RELGS : ERROR RELEVANCY FLAGS. 


:$CO 
DT2LOP: (CWP), (CADR) SET DISTRIBUTE WORD TO ALL ONES. 
174760 (CADR) , TWD sREAD DIST. WORD. 
174754 174736 TWO ,GWD :1S DIST. WORD ALL ONES? 
E DTZERR NO. = BRANCH 
DT20K: :YES. = CONTROL TRAP. 
DT2ERR: ERROR TRAP. 
174632 CADR,HIDA :ALL DISTRIBUTE WORDS TESTED? 
DT2END ;YES. = BRANCH 
000002 #2,CADR NO. = ADVANCE CONTROL ADRS. PTR. 
DT2LOP BRANCH 
004302 000167 000000 DT2END: DT3BEG : BRANCH. 
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sDIST. TEST 3 
THAT ALL DISTRIBUTE WORDS ARE RESET BY THE ACTION OF THE RESET INSTRUCTION. 


; CHECK 


DT3BEG: 


DT3LOP: 


DT30K: 


DTSERR: 


DT3END: 


LODA, CADR 
#0CW00, CWP 
(CWP) ,GWD 
#ORF ,RFLGS 


(CADR) , TWO 
DTSERR 


CADR ,HIDA 
DT3END 
#2,CADR 
DTSLOP 
DT4BEG 


SEQ 0041 


INIT. CONTROL ADDRESS POINTER. 
INIT. CONTROL WORD POINTER. 
INIT. "GOOD" WORD. 

INIT. ERROR RELEVANCY FLAGS. 
:SCOPE TRAP. 

:CLEAR ALL DISTRIBUTE WORDS. 
;READ DIST. WORD. IS IT ZEROS? 
:NO. = BRANCH. | 

YES. = CONTROL’ TRAP. 

ZERROR TRAP. 

ALL DIST. WORD TESTED? 

YES. = BRANCH. 

NO. = ADVANCE CONTROL ADRS. PTR. 
BRANCH, 

BRANCH. 
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004450 


016702 


000167 


174530 
001700 
174614 
000206 


174612 
174606 


174464 
000002 
000000 


174533 


174570 
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sDIST. TEST 4 


:CHECK THAT ALL DISTRIBUTE WORDS CAN BE SET TO ALL ONES. 


DT4BEG: 


DT4LOP: 


DT40K: 


DT4ERR: 


DT4END: 


LODA, CADR 
#0CW77,CWP 
(CWP) ,GWD 
WORF ,RFLGS 


(CWP), (CADR) 
(CADR) , TWO 
TWD ,GWD 
DT4ERR 


CADR,HIDA 
DT4END 
#2,CADR 
DT4LOP 
DT5BEG 


INIT. CONTROL ADDRESS POINTER. 


INIT. CONTROL WORD POINTER. 
; INIT. ‘'GOOD'’ WORD. 

; INIT. ERROR RELEVANCY FLAGS. 
SCOPE TRAP. 

SET DISTRIBUTE WORD TO ALL ONES. 
sREAD DIST. WORD. 

71S DIST. WORD ALL ONES? 

NO. = BRANCH 

YES. = CONTROL TRAP. 

ERROR TRAP. 

sALL DISTRIBUTE WORDS TESTED? 
;YES. - BRANCH 

NO. = ADVANCE CONTROL ADRS. PTR. 
; BRANCH. 

: BRANCH. 


SEQ 0042 
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DIST. TEST 5 
:CHECK THAT ALL DISTRIBUTE WORDS CAN BE CLEARED TO ALL ZEROS. 


004454 016702 174442 DTSBEG: LODA,CADR INIT. CONTROL ADDRESS POINTER. 
001502 #0CW00, CWP INIT. CONTROL WORD POINTER. 
174526 (CWP) ,GWD : INIT. ‘'GOOD'' WORD 
000206 174445 #ORF ,RFLGS INIT. ERROR RELEVANCY FLAGS. 
SCOPE TRAP. 
DTSLOP: (CWP), (CADR) CLEAR DISTRIBUTE WORD TO ALL ZEROS? 
174524 (CADR) , TWO sREAD DIST. WORD. 
174520 174502 TWD ,GWD 1S DIST. WORD ALL ZEROS? 
BNE DTSERR ;NO. = BRANCH 
DTS5OK: sVES. = CONTROL TRAP. 
DTSERR: ERROR TRAP. 
174376 CADR,HIDA 3 ALL DISTRIBUTE WORDS TESTED? 
DTSEND :YES. = BRANCH 
000002 #2,CADR :NO. = ADVANCE CONTROL ADRS. PTR. 
DTSLOP BRANCH. 
004536 000167 000000 DTSEND: DT6BEG ;BRANCH. 
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DIST. TEST 6 
CHECK THAT ALL DISTRIBUTE WORDS CAN BE SET \s ALL CONFIGURATIONS 
:GIVEN IN THE DISTRIBUTE WORD TABLE OF CONSTANTS. 


016702 174354 DT6BEG: LODA,CADR ; CONTROL ADDRESS POINTER. 
174367 #ORF ,RFLGS ; ERROR RELEVANCY FLAGS. 
DT6L2: #0CW00, CWP ; CONTROL WORD POINTER. 
174432 DT6L1: (CWP) ,GWD > INIT =. WORD. 


: AP 
(CWP), (CADR) : TE DISTRIBUTE WORD. 
174436 (CADR) , TWD READ DISTRIBUTE WORD. 
174432 174414 TWO ,GWD ;DISTRIBUTE WORD OK? 
BNE DT6ERR :NO. - BRANCH. 
DT60K: :YES. = CONTROL TRAP. 
DT6ERR: ;ERROR TRAP. 
175064 (CWP)+,DCW77 ;ALL CONTROL WORDS TESTED ON THIS WORD? 
DT6L1 7NO. = BRANCH. 
174302 CADR,HIDA ives. te + tga WORDS TESTED? 
;Y 
000002 :NO; es CONTROL ADRS. PTR. 
; N 
004632 000167 000000 DT6END: PREDJS ; BRANCH. 
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sARE DISTRIBUTE BOARDS THAT ARE JUMPERED TO SCAN BOARDS BEING TESTED? 


004636 032767 000120 174276 PREDJS: BIT WJFtJXF,FLAGS  ;TEST DJS? 
001002 BNE IDJ 


004644 


YES. = BRANCH. 


1532 004646 000767 005510 JMP PEND ;NO. = BRANCH. 


SEQ 0045 
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INITIALIZE THE DISTRIBUTE AND SCAN BOARDS. 


004652 000005 IDJ: ;CLEAR ALL DISTRIBUTE WORDS. 


174236 LOSA,CADR SET ALL MAINT. FLOPS AND 
001340 M #SCW17,CWP CLEAR ALL SCAN WORDS. 
000001 (CWP) ,+1(CADR) 
174234 C CADR ,HISAX 
1DJB 
000010 #10,CADR 
B IDJA 
004704 000167 000000 DJS1BG 


SEQ 0046 
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112767 


026767 


001001 
104777 


000167 


000327 
174200 
174170 
001562 
000200 
001140 


174242 
174240 


174244 
175032 
174236 
174230 


174222 


000200 
174642 
174060 


000002 
000002 


005276 


174225 


174202 


174212 
174204 


174112 
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sTEST DJS1 
;CHECK THAT SCAN WORDS CAN BE DRIVEN BY DISTRIBUTE WORDS. 
THE DATA WORDS USED ARE THOSE OF THE DISTRIBUTE CONTROL WORD TABLE, 
:OR SOLELY THE DATA WORD GIVEN BY THE OPERATOR AT QUERY TIME, IF ANY. 


: INIT. ERROR RELEVANCY FLAGS. 
INIT. CONTROL ADRS. PTR. (DIST.) 


DJS1BG: 


DJSIL2: 


DJSTA: 


DJSIL1: MO 


DJS10K: 
DJSTER: 


DJS1B: 


DJSIND: 


MOVB 
M 


#OSRF ,RFLGS 
LODA,CADR 

LOSA, CADRX 
#0CW00, CWP 
a 


JSTA 
#DATAWD,CWP 


(CWP) ,GWD 
(CWP) ,GWO 
(CWP), (CADR) 
(CADR) , TWD 
$,DELAY2 
(CADRX) , TWO 
TWO ,GWD 
DJSIER 

TWO, GWO 


DJSIER 


“ai + aaa 


DJS1B 
(CWP) + ,DCW77 
DJSIL1 


CADR,HIDA 


INIT. CONTROL ADRS. PTR. AUX. 


INIT. CONTROL WORD POINTER. 
;USE OPERATOR GIVEN DATA? 


:NO. - 
sVES 


:SCOPE TRA 


BRANCH. 
a INIT. CONTROL WORD PTR. 


: INIT G00D" DIST. WORD. 
INIT "GOOD" SCAN WORD. 


sWRITE DIST. WORD AND, VIA JUMPER, SCAN WORD. 


sREAD DIST. WORD. 
;WAIT 


READ SCAN WORD. 
:DIST. WORD OK? 

NO. - BRANCH. 

:YES. = SCAN WORD OK? 


NO. - BRANCH 

YES. = CONTROL TRAP. 

ERROR TRAP. 

;USING OPERATOR GIVEN DATA? 


:YES. - BRANCH 

:NO. = ALL CONTROL WORDS USED? 
:NO. = BRANCH 

:YES. = ALL ADDRESSES TESTED? 
:YES. = BRANCH 


NO. = ADVANCE “CONTROL ADRS. PTR. 
ADVANCE CONTROL ADRS. PTR. AUX. 


BRANCH 


BRANCH, 


(SCAN) 


(DIST.) 
(SCAN) 


SEQ 0047 


om 
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005064 
005072 
005100 


005104 
005112 
005120 


005124 
005132 
005140 


005144 
005152 
005160 


005164 
005172 
005200 


005204 
005212 
005220 


005224 
005232 
005240 


005244 
005252 
005260 


005264 
005272 
005300 


005304 
005312 
005320 


005324 
005332 
005340 


005344 
005352 
005360 


005364 


012767 
012767 
000167 


012767 
012767 
000167 


012767 
012767 
000167 


012767 
012767 
000167 


012767 
012767 
000167 


012767 
012767 
000167 


012767 
012767 
000167 


012767 
012767 
000167 


012767 
012767 
000167 


012767 
012767 
000167 


012767 
012767 
000167 


012767 
012767 
000167 


000167 
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005104 
014000 
174774 


005124 
014002 
174754 


005144 
014004 
174734 


005164 
010000 
174714 


005204 
010002 
174674 


005224 
010004 
174654 


005244 
004000 
174634 


005264 
004002 
174614 


005304 
004004 
174574 


005324 
000000 
174554 


005344 
000002 
174534 


005364 
000004 
174514 


005006 


174100 
174070 


174060 
174050 


174040 
174030 


174020 
174010 


174000 
173770 


173760 
173750 


173740 
173730 


173720 
173710 


173700 
173670 


173660 
173650 


173640 
173630 


AXCA: 


AXCB: 


#AXCA,AXRIN 
#TTS+ITS,AXSWR 
PREST 


#AXCB,AXRTN 
PREST 
#AXCC,AXRTN 
PREST 


#AXCD,AXRTN 
#TTS,AXSWR 
PREST 


#AXCE ,AXRTN 
#TTS+LDS,AXSWR 
PREST 


#AXCF ,AXRTN 
#TTS+SDS,AXSWR 
PREST 


#AXCG,AXRTN 
#ITS,AXSWR 
PREST 


#AXCH,AXRTN 
#ITS+LDS,AXSWR 
PREST 


#AXCI,AXRTN 
#ITS*#SDS,AXSWR 
PREST 


#AXCJ,AXRTN 
#0, AXSWR 
PREST 


#AXCK,AXRTN 
#LDS,AXSWR 
PREST 


#AXCL ,AXRTN 
#SDS,AXSWR 
PREST 


PASEND 


;SUB-PROGRAM TO CONTROL ACCEPT/EXERCISE PASSES OF EITHER 
:BTEL OR DJMPRS. 

AXCTL: ;RUN ONE PASS WITH: 
NO OPTIONS. 


RUN ONE PASS WITH: 
#TTS+ITS#LDS ,AXSWR 


LONGER DELAYS. 


RUN ONE PASS WITH: 
#TTS+ITS#SDS ,AXSWR 


SHORTER DELAYS. 


;RUN ONE PASS WITH: 
ITERATIONS & LONGER DELAYS 


;RUN ONE PASS WITH: 
ITERATIONS & SHORTER DELAYS 


RUN ONE PASS WITH: 
: TRACE TRAPS 


RUN ONE PASS WITH: 
; TRACE TRAPS & LONGER DELAYS. 


;RUN ONE PASS WITH: 
; TRACE TRAPS & SHORTER DELAYS 


RUN ONE PASS WITH: 
; ITERATIONS & TRACE TRAPS 


RUN ONE PASS WITH: 
sITERATIONS, TRACE TRAPS, 
:& LONGER DELAYS 


RUN ONE PASS WITH: 
: ITERATIONS, TRACE TRAPS, 
:& SHORTER DELAYS 
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005370 
005372 
005376 
005400 
005404 


005514 
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011600 
105760 
100403 
011667 
000002 


032767 


000002 


177776 
173550 


000001 


000346 
000020 


000556 
000054 
040000 


173474 
004000 


173456 
173452 


173442 
000002 


173526 


172140 


172120 


173450 


173406 


SEQ 0049 


SCOPE TRAP (TRAP) SERVICE ROUTINE TO RECORD THE PC FOR REFERENCE BY EITHER 


:SCOPE LOOPS OR ITERATIONS, 
SCOSVC: 


MOV 
TSTB 


(STP) ,RO 
=2(RO) 
CTLSVC 
(STP), SCORTN 


(BOTH SCOPE & CONTROL TRAPS ENTER HERE FIRST) 


;DETERMINE THE TYPE OF CALL MADE 
: (SCOPE OR CONTROL TRAP). 
;CONTROL. - BRANCH 

:SCOPE. - RECORD THE PC. 
;RETURN. 


CONTROL TRAP (IOT) SERVICE ROUTINE TO CONTROL INTERMITTANT ERROR CONDITIONS 
;AND TRACE TRAP, NON-ERROR SCOPE LOOP, & ITERATE SWITCH OPTIONS. 


CTLSVC: 


CTSVCA: 


CSVCA1: 


CTSVCB: 
CTSVCC: 


CTSVCD: 


#ECF FLAGS 
CTSVCA 3 


$,IMCTL 

#TSS,177570 
CSVCA1 

eh git oy 

HLS, £117570 
TSVC 


C 
(STP)S, (STP)+ 


: DOES AN ERROR CONDITION EXIST? 
:YES. = GO TO INTERMITTANT CONTROL. 
:TYPE PROGRAM STATUS? 

:NO. = BRANCH 


YES. = GO TYPE PROGRAM STATUS. 
:GO SEE ABOUT TRACE TRAPPING. 
:NON-ERROR SCOPE LOOP? 

NO. = BRANCH. 

;YES. = POP STACK ONE TRAP 


aSCORTN s:RETURN TO SCOPE LOOP (OR ITERATION). 
#ITS,a@SwWR ; ITERATE? 

CTSVCD NO. - BRANCH 

ITCNT YES. - INCREMENT ITERATION COUNTER. 

ITCNT, I TNO : ITERATE THIS TEST OR TEST LOOP AGAIN? 
CTSVCB 7YES. = BRANCH. 

ITCNT NO. = CLEAR ITERATION COUNTER. 

#2, (STP) ;ADVANCE RETURN POINT (SKIP THE ERROR CALL). 


;RETURN TO NEXT TEST OR TEST LOOP. 


on 
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; SUBROUTINE TO CONTROL THE TRACE TRAP SWITCH OPTION. 


016746 172254 TTCTL: PS,-(STP) ;PUT PS ON STACK. 

000020 B #20, (STP) ;CLEAR ‘'T’’ BIT (PROVISIONALLY). 
010000 173402 #TTS ,@SWR ; TRACE TRAPS? 

a56 iste :NO. - BRANCH 
000020 BI #20, ( YES. = SET "'T'’ BIT (FINALLY). 
005550 TTCTLA: HTCTLB, Pe USTP) :PUT RETURN LOC. ON STACK 

R eee. (TO NEXT INST.) AND SET/CLEAR "'T" BIT. 
005550 000205 TTCTLB: RTS $ ; RETURN 


; TRACE iRAP SERVICE ROUTINE 
:1F THE PROCESSOR IS AN 11/45, PROGRAM INITIALIZATION HAS CHANGED 
THE FOLLOWING INSTRUCTION TO RTT (000006). OTHERWISE IT IS AS SHOWN. 


005552 000002 TTSVC: RTI sRETURN. (THIS INST. WILL BE RTT IF A 11/25 OR 11/45.) 


;POWER DOWN SEQUENCE. 
005554 010046 PDOWN: RO,-(STP) PUSH RO=R5 ON STACK. 


000026 STP, PDSTP SAVE STACK PTR IN CORE. 
172222 #PUP 24 INIT. POWER FAIL VECTOR FOR POWER UP. 
PS,-(STP) sENSURE THAT TRACE TRAP IS OFF. 
#20, (STP) 
177724 JS $,TTCTLA 
PDOWNA: :WAIT FOR POWER UP INTERRUPT. 


BR PDOWNA 
005622 000000 PDSTP: 0 
sPOWER UP SEQUENCE. 


005624 016706 177772 PUP: POSTP,STP sRESTORE STACK PTR. 
(STP)+,R5 ;POP RO-R5 FROM STACK. 
(STP) +,R4 
(STP)+,R3 
(STP)+,R2 
(STP)+,R1 
, (STP)+,RO 
005554 172152 #PDOWN 24 : INIT. — FAIL VECTOR FOR POWER DOWN. 
T (STP)+ POP STACK 
005654 000167 002744 INITP zRESTART. 


ee ee ed ed ed 
SN NN NNN NSN GSS 
NOR a St ot So oe as 
—SODOOnNOULWN-oO 
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032767 


000002 


000001 
000002 


000064 
020060 


100000 


040000 


173210 
000001 
000236 


000003 


173254 
173244 


171656 
171646 


171634 


173170 


173154 


s;ERROR TRAP (EMT) SERVICE ROUTINE TO CONTROL ERROR HANDLING. 


ERRSVC: 


ESVCA1: 
ERSVCA: 


ERSVCB: 
ERSVCC: 


ERSVCD: 
ERSVCE: 


ERSVCG: 


WECF FLAGS 
ERSVCD 
#IMF FLAGS 
ESVCA1 


$,1MCTL 
#STS,177570 


ERSVCE 
#HES,177570 
ERSVCB 


#SLS,177570 


ERSVCG 
(STP)+,(STP)+ 
@SCORTN 

#ECF FLAGS 
$,TYPERR 
ERSVCA 
#ECF+IMF FLAGS 


:DOES AN ERROR CONDITION ALREADY EXIST? 
;NO. = BRANCH. (UNCONDITIONAL TYPEOUT) 
[DOES AN INTERMITTENT ERROR EXIST? 


NO. - BRANCH 
YES. = GO TO INTERMITTENT CONTROL. 


YES. = SUBSEQUENT ERROR TYPEOUTS? 
7YES. = BRANCH. 
NO. = HALT? 


:NO. = ots 


;YES. = 
ERROR SCOPE” LOOP? 
NO. = BRA 


NCH 
YES. = POP STACK ONE TRAP. 
RETURN TO SCOPE LOOP 
SET ERROR CONDITION FLAG.. 
7GO TYPE ERROR MESSAGE. 


;BRANCH. 
;CLEAR ERROR CONDITION FLAGS. 
RETURN. 


SEQ 0051 





—— 
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032767 


000167 


000002 
000002 
0 


005422 
173232 
004122 


020136 
173174 
004066 


000100 
004032 
041522 
004112 
004012 
041513 
004072 


005422 


177470 


Q3-MAR-78 09: 


173144 
173134 


051105 
047105 


047440 
047514 


047440 
047514 
171434 


027057 


027057 
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; SUBROUTINE TO HANDLE INTERMITTENT ERROR CONTROL 


IMCTL: 


IMCTLA: 
B 


B 
IMCTLB: 
B 


IMCTLC: 
B 


0 
IMCTLD: 
BE 


R 
IMCTLE: 
J 


#IMF FLAGS 
IMCTLA 

#IMF FLAGS 
$,TYPEA 

** INTERMITTENT!. 


$,#CTSVCA 


$,TYPEA 
"OKC OVERFLOW. 


IMCTLC 
ERCTR 
IMCTLC 
$,TYPEA 
"ERC OVERFLOW . 


#IMS,177570 
IMCTLD 


$, TYPEO 


$,TYPEA 
*" OKC/."" 
$,TYPEO 


$,#CTSVCA 
IMCTLE 


$ 
(STP)+ 
ESVCA1 


;DOES INTERMITTENT COND. ALREADY EXIST? 
:YES. = BRANCH. 

3NO. - SET INTERMITTENT FLAG. 

sNOTIFY OPERATOR OF INTERMITTENT. 


:DID THE TEST PASS THIS LOOP OK? 
NO. = BRANCH. 


VES. =f. 9 OKCTR. HAS IT OVERFLOWED? 
YES. ° NOTIFY OPERATOR. 


> BRANCH 

z INC. ERCTR. HAS IT OVERFLOWED? 
:NO. = BRANCH 

:YES. = NOTIFY OPERATOR. 


;TYPE ‘‘OK*' AND “‘ERR'’ COUNTERS? 
NO. - BRANCH 
:YES. = TYPE THE COUNTERS. 


:DID THE TEST PASS THIS LOOP OK? 
:YES. = BRANCH 


;NO. = RETURN TO CONTINUE ERROR REPORTING. 
;POP STACK ONE JSR 
;BRANCH TO CONTINUE ERROR REPORTING. 


SEQ 0052 
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1812 
1813 
1814 
1815 
1816 
1817 
1818 
1819 
1820 


006476 


006500 
006504 


006350 
006354 


004567 


001160 
032767 
001402 
000167 


004567 


001162 
004567 


001170 
004567 


001172 
004567 


0 
000240 


004567 
043040 


001122 


004030 


000001 
001040 


003714 
027523 
003774 


003674 
042101 
003754 


003654 
054101 
000001 


000762 
003720 


003620 
050127 
000002 


000726 
003664 


003564 
027524 
000100 


000200 


003532 
047101 


003516 
052123 


003502 
027123 


003470 
027057 


020056 


171322 


020056 


027057 


027057 
172607 


027057 
172553 


020056 
172517 
172507 
020056 


020056 
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; SUBROUTINE TO TYPE ERROR MESSAGES. 


TYPERR: JSR 
TPC: JSR 


$,SAVE 
$,TYPEA 
C/ te 


$, TYPEO 
#SES,177570 
TPST 

TEX 

$,TYPEA 
"psy, 

$, TYPEO 
$,TYPEA 


. CAd/.” 
$,TYPEO 


$,TYPEA 

"" CAX/."' 
#AXF ,RFLGS 
TCAXA 
$,TYPENR 
$,TYPEO 


$,TYPEA 
" CWP/." 
#CWF,RFLGS 
TCWPA 
$,TYPENR 
$,TYPEO 
$,TYPEA 
oe BT/. te 
#SF,RFLGS 
TBDA 

#OF ,RFLGS 
TBDB 


SEQ 0053 








Om 
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006510 004567 003552 JSR $,TYPEO 
006514 001142 


SEQ 0054 


006516 004567 003452 R $,TYPEA 
042127 027057 ** GWO/." 


000004 172405 #WOF ,RFLGS 
TGWDA 

000560 $,TYPENR 

003516 : $,TYPEO 


001216 


004567 003416 $,TYPEA 
043115 027057 ° "* GMF/."' 
000010 172351 #MFF,RFLGS 
TGMFA 


000524 $,TYPENR 
003462 : $,TYPEO 
001214 


004567 003362 JS $,TYPEA 
030127 027057 ° " GWO/."' 
000020 172315 #WOF ,RFLGS 
TGWOA 


000470 $,TYPENR 
003426 : $,TYPEO 
006640 001220 


006642 004567 003326 JSR $,TYPEA 
031127 027057 . ** GW2/."* 
000040 172261 #W26F ,RFLGS 
TGW2A 


000434 $,TYPENR 
003372 : $,TYPEO 
006674 001222 


006676 004567 003272 JS $,TYPEA 
032127 027057 ° "* GW4/,"" 
000040 172225 #W26F ,RFLGS 
TGW4A 


000400 $,TYPENR 
003336 : $,TYPEO 
006730 001224 


006732 004567 003236 JSR $,TYPEA 
033127 027057 ‘ "" GW6/.*° 
000040 172171 #W26F ,RFLGS 
TGW6A 


000344 $,TYPENR 
003302 : $,TYPEO 
006764 001226 





Om 
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006766 004567 003202 TSWR: R $,TYPEA 
051127 027057 "* SWR/." 
003262 JSR $,TYPEO 


003162 TTWD: SR $,TYPEA 

042127 027057 " TWwO/." 

000004 172115 B #WOF ,RFLGS 
TTWDA 


000270 $,TYPENR 
003226 : $,TYPEO 
007040 001232 


007042 004567 003126 JSR $,TYPEA 
043115 027057 ° ~ Vee 
000010 172061 #MFF,RFLGS 


000234 
003172 : $,TYPEO 
007074 001230 


007076 004567 003072 JSR $,TYPEA 
030127 027057 ° " TWO/."' 
000020 172025 #WOF ,RFLGS 
TTWOA 
000200 $,TYPENR 
003136 : $,TYPEO 
007130 001234 


SEQ 0055 


007132 004567 003036 JS $,TYPEA 
031127 027057 ~ Tes,” 
000040 171771 #W26F ,RFLGS 
TTW2A 


000144 $,TYPENR 
003102 : $,TYPEO 
007164 001236 


007166 004567 003002 JS $,TYPEA 
032127 027057 " TwW4/." 
000040 171735 BITB oe 
Wl 


000110 $,TYPENR 
003046 : $,TYPEO 
007220 001240 


007222 004567 002746 JSR $,TYPEA 
033127 027057 ‘  TW6/."* 
00004C 171701 #W26F ,RFLGS 

TTW6A 


000054 $,TYPENR 
003012 : $,TYPEO 
007254 001242 


007256 004567 002712 S $,TYPEA 
OSts 051530 051127 eASCII ** AXSWR/." 
007272 032767 000140 171642 BIT #BXF+JXF,FLAGS 





> > On 


o AAO Ono 
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007300 
007302 
007306 
007312 


007314 
007320 
007322 


001002 
004567 000016 
004567 002754 
001210 


004567 002654 
027136 
000205 


TAXSA: 


TEX: 


52) O3-MAR-78 09:20 PAGE 56 
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TAXSA 
$,TYPENR 
$,TYPEO 


TYPEA 


SEQ 0056 
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; SUBROUTINE TO TYPE ‘'NR'’ (NOT RELEVANT). 


007324 004567 002644 TYPENR: JSR $,TYPEA 
007330 051116 020056 eASCII “'NR, 
007334 062705 000006 ADD #6,$ 
007340 000205 RTS $ 


SUBROUTINE TO SAVE PERTINENT DATA AS IT WAS AT THE TIME OF THE ERROR CALL. 


007342 016767 171574 SAVE: FLAGS, SAVFLG 
M +4(STP) ,SAVPC 
#2,SAVPC 
+6(STP) ,SAVPS 
177570, SAVSWR 
CADR,SAVCAD 
CADRX , SAVCAX 
CWP, SAVCWP 
ITCNT,SAVITC 
OKCTR,SAVOKC 
ERCTR, SAVERC 
RO,SAVRO 
R1,SAVR1 
STP, SAVSTP 
171524 #10,SAVSTP 
007460 000205 $ 
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: INITIALIZATION. 


007462 012767 000010 171452 INIT: “ leita s INIT. FOR S8ORD DIAG. 
000004 171442 INITAS: #MOD FLAGS : INIT. FOR MODULE TEST MODE. 
BR INITA1 


000020 171432 INITA: #JF FLAGS INIT. FOR DJMRS DIAG. 
177570 4171420 INITA1: oe 
N 


INI 
000040 171414 INITA2: a -" INIT. FOR BTEL ACCEPT/EXERCISE. 
000100 171404 INITA3: #JXF,FLAGS INIT. FOR DJMPRS ACCEPT/EXERCISE. 
001210 171372 INITA4: #AXSWR, SWR 
001000 INITB: #1000,STP 
171374 
000002 : INIT. TRAP CATCHER SO THAT ANY 
; ILLEGAL TRAPS WILL HALT AT 
INITB1: THE LOCATION FOLLOWING THE 
sLOCATION TO WHICH THE ILLEGAL 
000004 #4,R0 ; TRAP WAS MADE. 
001000 


000137 
#INIT,202 
#TTSVC,14 : INIT. TRACE TRAP VECTOR. 
#CTLSVC,20 INIT CONTROL TRAP VECTOR. 
#PDOWN, 24 INIT POWER FAIL TRAP VECTOR. 
#ERRSVC,30 INIT. ERROR TRAP VECTOR. 
#SCOSVC ,34 INIT. SCOPE TRAP VECTOR. 
:CLEAR ASSORTED VARIABLES. 
002620 7 TY PRINT TITLE 


M 
INITB2: 
001300 C 


R4 
007722 170100 #INITC,10 ;DETERMINE THE TYPE OF PROCESSOR 
RO 3411/45) TYPES OR 11/20 TYPES) AND 
000006 175632 #RTT,TTSVC INIT. THE TRACE SERVICE ROUTINE 
B INITC1 ; ACCORDINGLY 
INITC: (STP)+,(STP)+ 
000012 170056 INITC1: #12,10 
170044 #INITD,4 INIT. TIMEOUT-ERROR TRAP VECTOR. 
KWLS 1S THERE A KW11L? (NO IF TRAP.) 
171316 #KWLS,KCSR :(YES IF NO TRAP.) = INIT CLOCK CSR. 
010060 170120 #INITG,100 sINIT. KW11L TRAP VECTOR. 
B INITF ; BRANCH. 
010020 170014 #INITE,4 INIT. TIMEOUT-ERROR TRAP VECTOR. 
T KWPS 1S THERE A KW11P? (NO IF TRAP.) 
171266 #KWPS,KCSR (YES IF NO TRAP.) = INIT CLOCK CSR. 
170074 #INITG,104 INIT. KW11P TRAP VECTOR. 
000001 162524 #1, KWPB cINIT. KW11P COUNT BUFFER. 
010016 000402 INITF ;BRANCH,. 
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010106 
010110 


010360 


900000 
0 


000776 
005077 


022767 
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000006 
171230 
000000 
010050 


000115 
171200 


000002 
171164 


171154 


000021 
171104 


000012 
170736 
170720 


000012 


167752 


171212 


171170 


167756 
167754 


171124 
171112 
000011 


171066 


171026 
170652 
171006 
170632 


170764 
170756 


170744 
000007 
170720 
170712 
170700 


INITE: 
INITF: 


1$: 
INITG: 


INITG1: 
INITG2: 


INITH: 


INITI: 


INITJ: 


INITJ1: 


INITJ2: 


INITK: 


INITK1: 


HALT 


ee ERROR. THERE IS NO CLOCK, AS REQUIRED. 


#0, -(STP) 
#18, -(STP) 


#115,aKCSR 


(STP)+,(STP)+ 
DLACTR 

INITH 
#2,DLACTR 
DLACTR 

INITG1 


INITG2 
akCSR 
#102,100 
#106,104 
DLANO1 
#21,DLACTR 
DLANO1 
#21,DLACTR 
INITI 
DLACTR,#11 
INITJ 
DLANO1 
nth -DLACTR 


DLANO2 
DLACTR,DLANO1 
DLAOF 1 
DLAOF1,DMS1 
INITJ1 
DLACTR,DLANO2 
DLAOF2 
Try -DMS2 


2 
DLANO1,DLACTR 
ty Fy ada 
#12, to la 


DLAOF 1 
#12, DLACTR 
#12,DLACTR 


: INIT. 
; INIT DELAY NUMBER. 
SET PROCESSOR PRIORITY TO 0 


;DISABLE CLOCK INTERRUPTS. 
INIT (CLOSE OUT) CLOCK VECTOR. 
: INIT (CLOSE OUT) CLOCK VECTOR. 
; CALIBRATE FOR THIS PARTICULAR 
;PROCESSOR 2 DELAY NUMBERS AND 
sDELAY OFFSETS OF 10% OF THE 
;DELAY NUMBERS. 


(CLOSE OUT) TIMEQUT-ERROR TRAP VECTOR. 


sENABLE INTERRUPT FROM CLOCK (EITHER ONE) 


sWAIT FOR FIRST INTERRUPT 
POP STACK 

sFIRST INTERRUPT? 

;NO. = BRANCH 


i YES. = ADJUST DELAY COUNTER. 
;COUNT UNTIL SECOND INTERRUPT. 


s*teCATASTROPHIC ERROR. 


COUNTER SHOULD NOT OVER RUN. 


(DLACTR=16.7MS) 


; (DLANO1=1MS) 


: (DLANO1=1MSXDMS1) _ 


; (DLANO2=1MSXDMS2) 


3 (DLAOF1=10% DLANO1) 





MACY11 30A(1052) O3-MAR-78 09:20 PAGE 60 
AC.P11 03-MAR-78 09:19 SEQ 0060 


010366 101767 INITK3 
170672 000007 DLACTR,#7 
INITK4 
170656 I DLAOF2 
INITK4: ~ ; (DLAOF2=10% DLANO2) 


000004 170524 #MOD,FLAGS 
INITL 


001550 $,TYPEA 
047440 ° ""-§ OR D MODULE TEST."’ 
047515 
052040 
027124 
B INITM 
000050 170460 #BF +BXF ,FLAGS 
B INITL1 
001504 $,TYPEA 
051536 023040 ° *$ &/OR D0." 
020122 027104 
INITM 


B 
001462 INITL1: $,TYPEA 
042136 045040 . "0 JMPR S.” 
020122 027123 
000034 170406 INITM: : ro Acadian 


001432 
040511 057107 








B 
001414 INITM1: $,TYPEA 
041503 050105 ° " ACCEPT/EXERCISE .*° 
054105 051105 
010574 044503 042523 027136 


010602 005767 170310 : LOSA HAVE TTY QUERIES EVER BEEN MADE? 


INITO [NO. = BRANCH. 
000010 166752 #19, 177570 :YES. = INHIBIT SUBSEQUENT TTY QUERIES? 
000026 : $,QBEG [NO. = MAKE TTY QUERIES. 


YES. - BRANCH. 
170314 170310 : FX, FLAGS CARRY FLAGS FROM PREVIOUS PASS (IF ANY). 
000140 170302 WBXF+JXF,FLAGS ;ACCEPT/EXERCISE? 
INITR :YES. = BRANCH 
171232 : PREST NO. = BRANCH. (DIAG.) 
010646 000167 174212 : AXCTL ;BRANCH, 
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; SUBROUTINE TO MAKE INITIAL TTY INQUIRIES. 


010652 000240 QBEG: 
001314 QLOSA: R $,TYPEA 
051517 037501 . " LOSA? . 


001032 QLOSAA: $,KADRS 


000116 


000007 
010716 001142 


010720 004567 001250 QHISA: JS $,TYPEA 
051511 037501 "HISA? . 


000766 GHISAA: $,KADRS 
170154 
000116 


170152 

000007 170144 #7 ,HISAX 

177770 #177770,R0 

000006 RO,#6 
010774 001113 QERA 


010776 004567 001172 QLODA: JS $,TYPEA 
042117 037501 *LODA? ." 


000710 QLODAA: $,KADRS 
170100 RO,LODA 
170076 RO,HIDA 
000116 RO,#'N 
QADCK 
000007 #7,R0 
001071 QERA 


004567 001126 QHIDA: JS $,TYPEA 
042111 037501 " HIDA? .” 


000644 QHIDAA: $,KADRS 
170036 RO,HIDA 
000116 RO,#'N 
QERA 
177770 #177770,R0 
QERA 
000004 RO, #4 
001446 QERA 
026727 170002 000116 QADCkK: LOSA,#'N 
167776 000116 


QERD 
026767 167762 167762 QADCKA: LOSA,HISA 
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011222 
011224 


011320 
011324 


011366 
011372 


011436 


011442 


011474 


03-MAR-78 
101115 


000767 
016767 


000177 
004567 


000167 
004567 


000167 


004567 


000167 


09: 


167756 


167742 
167742 


167732 
000002 


167720 
167710 


167710 
000002 


170016 


046116 
167724 
000644 


177260 
000576 


051522 


177210 


000526 


177152 


167756 


170016 
051511 


057131 


046501 
047101 
051511 
051104 
027136 


042101 


057077 


047502 
020054 
051505 
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QADCKB: 
B 


QADCKC: 
QADCKD: 


QADCKD 


TYPSRC,QSRC 
$,TYPEA 
22 HISA=XXXXX6 ONLY, HIDA=XXXXX2 OR XXXXX6 ONLY . 


aQsrRc 


$,TYPEA 
"22 SAME SCAN & DIST ADDRESS? ." 


QBEG 


$,TYPEA 
"LO ADRS HIGHER THAN HI ADRS? . 


QBEG 


$,TYPEA 
"NO BOARDS, NO TEST . *’ 


QBEG 


SEQ 0062 





“wun On 


anunnn 


CB11 MACY11 30A(1052) O3-MAR-78 09:20 PAGE 63 
CZCBAC.P11 O3-MAR-78 09:19 SEQ 0063 


011500 032767 000120 167434 QDATA: #JF+JXF FLAGS 
B QDCON 


000460 JSR $,TYPEA 
052101 037501 . ** DATA? ."* 


000202 $,KDATA 
167404 RO,DATAWD 
000200 167402 

000006 167502 


011552 052767 000200 167364 #DATF FX 


011560 004567 000410 $,TYPEA 
051524 ° " DISTS JUMPED TO SCAN? ." 
042520 
051440 
027040 
$,KYORN 


000116 RO,#'N 
011624 001755 QUMPD 


011626 004567 000342 : $,TYPEA 

020122 -ASCiI *“' USER DISCONNECTED? . * 
047117 

042105 


$,KYORN 
000116 RO,#'N 
011670 001756 QDCON 


011672 004567 000276 QTSTNG: $,TYPEA 

011676 045516 ° "* THANKS! NOW TESTING ."* 
011704 053517 

011712 044524 

011720 043516 027136 


011724 000205 





(B11 MACY11 30A(1052) — 78 09:20 PAGE 64 
CZCBAC.P11 03-MAR-78 09: SEQ 0064 


; SUBROUTINES TO KEY IN CORRECT OPERATOR REPLIES TO TTY QUERIES. 


011726 004567 000010 KADRS: sENTRY TO KEY IN AN ADDRESS. 
000004 KDATA: sENTRY TO KEY IN DATA. 
000000 KYORN: ENTRY TO KEY IN A Y OR AN N. 
KIN: R INIT. & PREPARE TO INPUT A 
000006 167300 MAXIMUM OF SIX CHARACTERS. 
165602 KINA: TKS ENABLE CHAR. READ. 
165576 KINB: CHAR. READY? 
NO. = BRANCH. 
165572 TKB,RO :YES. = READ CHAR. 
177600 BI . ;CONVERT CHAR. FROM 8 TO 7 BIT ASCII. 
165564 KINB1: . TPS sECHO THE CHAR. 


165560 
011742 WAS REPLY TO BE Y OR N ONLY? 
:YES. = BRANCH 
000060 NO. = CHAR. LESS THAN A CHAR. 0? 
INE :YES. = BRANCH 
000067 NO. = CHAR. GREATER THAN A CHAR. 7? 
KINC — ~ BRANCH. 
177770 . = CONVERT ASCII TO OCTAL. 
RO,R1 i TRANSFER CHAR. TO R1. 
167210 WAS THIS THE SIXTH CHARACTER? 
7 YES. = BRANCH, 
NO. = POSITION CHARS. 
POSITION CHARS. 
POSITION CHARS. 
BRANCH, 
R1,R0 :YES. = TRANSFER THE SIX CHARS. TO RO. 
011732 C : SHOULD THIS REPLY BE AN ADDRESS? 
KIND NO. = BRANCH 
000001 hha - IS ADRS. EVEN? 
KINE - BRANCH 
164000 ives, - IS ADRS. LESS THAN 164000? 
KINE :YES. = BRANCH. 
167776 :NO. = IS ADRS. GREATER THAN 167776? 
KINE YES. = BRANCH, 
8 KIND NO. = BRANCH, 
000006 167134 KINC: 1S THIS ben FIRST CHAR? 
B KINE NO. = BRANC 
000116 . :YES. - IS CHAR. AN WN? 
YES. = BRANCH 
011742 :NO. = WAS REPLY TO BE AN ADRS. OR DATA? 
7YES. = BRANCH, 
000131 , :NO = IS CHAR, A Y? 
B KINE NO. = BRANCH. 
KIND: (STP)+,$ :YES. = POP STACK ONE JSR. 
R $ RETURN. = REPLY IS IN RO. 
167074 167074 KINE: TYPSRC,QSRC GET ANOTHER TRY AT IT. 
000014 JS S,TYPEA 
037477 020056 ASCIE "92," 





CB11 MACY11 30A(1052) O3-MAR-78 09:20 PAGE 65 
CZCBAC.P11 03-MAR-78 09:19 SEQ 0065 


2348 012164 005726 TST (STP)+ ;POP STACK TWO JSR'S. 
2349 012166 012605 MOV (STP)+,$ 
2350 012170 000177 167054 JMP a@QSRC RETURN TO RE-QUERY 





om 


CB11 MACY11 30A(1052) O3-MAR-78 09:20 PAGE 66 
CZCBAC.P11 O3-MAR-78 09:19 


; SUBROUTINE TO TYPE ASCII CODE. 
012174 010567 167046 TYPEA: $,TYPSRC 
000004 167040 S #4, TYPSRC 
165352 TYPEAA: PS 


000136 
177756 $,TYPEAA 


0 
000056 TYPEAB: : ($) , #56 
165320 


B 
TYPEAC: 
B 


000001 


I 
TYPEAD: 
012264 000205 


SUBROUTINE TO TYPE A SIX DIGIT OCTAL NUMBER. 


012266 005067 000056 TYPEO: TYPEOC 
mM ($)+,RO0 
(RO) ,RO 


RO 
000044 TYPEOC 
RO 


B TYPEOB 
000034 TYPEOA: TYPEOC 
A 


RO 
000026 tas 
000020 TYPEOC 
RO 


000012 R TYPEOC 
027060 000004 TYPEOB: #27060, TYPEOC 
177624 JSR $,TYPEA 
TYPEOC: “we 
100000 cmMP RO, #100000 
TYPEOA 
012360 000205 $ 





cB11 MACY11 30A(1052) O3-MAR-78 09:20 PAGE 67 
CZCBAC.P11 03-MAR-78 09:19 SEQ 0067 


012362 032767 000034 166552 PEND: #BF+JF+MOD, FLAGS 
012370 001002 B PASEND 
012372 000177 166614 @AXRIN 


012376 005267 166546 PASEND: PASCTR 
177566 JSR $,TYPEA 


000040 165152 #PCS,177570 
177550 JS $,TYPEA 


177634 JS $,TYPEO 


177534 s $,TYPEA 
047111 054507 ° "" RINGY DINGY. * 
047111 054507 


000001 166464 #1 -PASCTR 
177502 JS $.TYPEA 


012474 000240 PEA: 


012476 000167 176122 LOGICAL: JMP 
ROUTINE TO OUTPUT TITLE 


012502 011601 TYPE: (16), 
000002 AD #2, ° ) 
000022 LOOP: (Z1)+, CHAR 
BN 1$ 


INITP 


%7 
177564 1$: + diate 
000004 177566 CHAR,  @#177566 
B LOOP 


CHAR: 0 
tbe 041103 MSG: eASC1Z2<12><15>/CZCBAC CB11 LOGIC TEST/<12><15> 
047514 
042524 052123 
000 


000001 


012572 





D 6 
CB11 MACY11 30A(1052) O3-MAR-78 09:20 PAGE 69 
CZCBAC.P11 03-MAR-78 09:19 CROSS REFERENCE TABLE -- USER SYMBOLS SEQ 0068 


= 000377 


001212 1600* 1604 1608* 1612* 1616* 1620" 1624* 1628* 1632+ 
001210 1601* 1605* 1609* 1613" 1617* 1621* 1625* 1629  1633* 


001146 
2402 
2137 


104777 1170 1204 1237 1271 1303 1337 1372 1397 1417 
1518 1571 
005436 


001552 





E 6 
cB11 MACY11 30A(1052) a 78 09:20 PAGE 70 
CZCBAC.P11 O3-MAR-78 09:19 CROSS REFERENCE TABLE =~ USER SYMBOLS SEQ 0069 


001554 


1468 1520 1575 
1189 1222 1256 1288 1322 
1391 = 1827 


005016 





F 6 
CB11 MACY11 30A(1052) O3-MAR-78 09:20 PAGE 71 
CZCBAC.P11 Q3-MAR-78 09:19 


002054 10574 

002070 

001266 1 2044* 2051 2053* 2054* 2063* 2065 2067 =2070* 
2093* 2094* 2096 2098 

001254 2073* 2075* 2085 


2087* 2092+ 
2084* 2095* 2100* 


CROSS REFERENCE TABLE == USER SYMBOLS SEQ 0070 


1491 1510 


004604 





G 6 
cB11 MACY11 30A(1052) O3-MAR-78 09:20 PAGE 72 
CZCBAC.P11 O03-MAR-78 09:19 CROSS REFERENCE TABLE =~ USER SYMBOLS SEQ 0071 


= 000001 
001300 
001274 
104000 


005660 


001142 1556 1573 1652 
1990* 1992* 1995* 


001104 
001040 
001144 
001214 1040 
001216 1469* 


001220 


007724 20294 





CB11 


MACY11 30A(1052) 
8 09: 


CZCBAC.P11 03-MAR-7 


007762 


0 
001122 


H 6 
ag 78 09:20 PAGE 73 
CROSS REFERENCE TABLE -- USER SYMBOLS 


2042 
20434 
20504 


2425 


1668* 


1448 


1467 


1488 


1509 


1553 


SEQ 0072 





I 6 
(B11 MACY11 30A(1052) +” pe 78 09:20 PAGE 74 
CZCBAC.P11 O3-MAR-78 09: CROSS REFERENCE TABLE -- USER SYMBOLS 


SEQ 0073 
001132 


001116 


1215 1248 1281 1315 
001126 
0 


002100 


1618 1622 1626 1630 
002124 


22164 


2350 


FE 1365* 1391* 1412* 
t 


1848 1856 1864 
1907 


G 
RFLGS = 001143 





CB11 MACY11 30A(1052) 03-MAR-78 
CZCBAC.P11 O3-MAR-78 09:19 


RTT = 000006 


104400 
001154 


1183 


001412 


J 6 
09:20 PAGE 75 
CROSS REFERENCE TABLE -=- USER SYMBOLS 


1974 
1975* 
1976* 


1219 


1249 1538 


1252 


1285 


1318 


1366 


1392 


SEQ 0074 


1413 





K 6 
CB11 MACY11 30A(1052) “pd 78 09:20 PAGE 76 
CZCBAC.P11 03-MAR-78 09: CROSS REFERENCE TABLE -- USER SYMBOLS SEQ 0075 


001414 


1609 1621 1633 
1130 1825 
1218 1251 1284 1316 


Re 


1165 1167 1169 11714 


WWW OWN NOM ON — SOQ 


MANE NWA OP St Oe 
Re 


a a ss =) ss 


002446 





L 6 
CB11 MACY11 30A(1052) O3-MAR-78 09:20 PAGE 77 
CZCBAC.P11 03-MAR-78 09:19 CROSS REFERENCE TABLE -- USER SYMBOLS SEQ 0076 


002562 
00 


13384 


1993* 


GW6A 0067 
KB = 177562 





Mm 6 
cB11 MACY11 30A(1052) O3-MAR-78 09:20 PAGE 78 
CZCBAC.P11 03-MAR-78 09:19 CROSS REFERENCE TABLE -- USER SYMBOLS SEQ 0077 


aaaee 2303* 2304 
001230 1154* 1160 1188* §=61194 1221* 1227 1255* 1261 1287* 1293 1321* 1327 
177566 2310* 2367+ 


2357 


001232 1454* =1473* 
001234 1196 1223+ 
001236 1198 1224* 
001240 
001242 


012502 
012174 


012206 


007324 
012266 
012310 


2389* 2391* 2393 2394% 23968 
8 1787# 
001246 2355* 2356+ 





N 6 
CB11 MACY11 30A(1052) — 78 09:20 PAGE 79 


CZCBAC.P11 O3-MAR-78 09:19 CROSS REFERENCE TABLE -- USER SYMBOLS 
WOF = 000004 7454 1848 1899 

OF = 000020 747# §=1864 1915 

26F = 000040 7484 = §=1872 1880 1888 1923 1931 1939 
. = 012575 7614 7694 7778 7864 7934 8004 


- ABS. 012575 000 


ERRORS DETECTED: 0 


ees a eT a —_ TOC=CZCBAC.P11 
RUN-TI 351 ONDS 

RUN-TIME "RATIO: 140/10 13.8 

CORE USED: 11K (21 PAGES) 


SEQ 0078 


